MSG$ = "UNIT IN EDIT MODE"
Case 8
MSG$ = "PRINT STATION BUSY TRY AGAIN"
End Select
MsgBox MSG$
COMM.InBufferCount = 0: Rem FLUSHES THE INPUT BUFFER
End Sub
LAS RUTINAS EN VISUAL BASIC DE ARRIBA MUESTRAN TODA LA
SECUENCIA DE:
PREPARAR LA INFORMACION A ENVIAR A LA IMPRESORA
ENVIAR LA INFORMACION A LA IMPRESORA
ESPERAR POR RESPUESTA
DETERMINAR SI LA INFORMACION FUE ACEPTADA O NO
6-29
EVOLUTION LX SYSTEM MANUAL Issue 1.0 5 DEC 2009