Obtener valor devuelto por una impresora

[ci2000]

Hola, en un sistema dónde se imprimen tickets en la impresora TM-U950 he logrado que salte el cajón de dinero desde el software enviando un pulso con el siguiente código:

Código:

Open "COM1" For Output As #1
'Expulsa el cajón con estos códigos de escape
Print #1, Chr$(27); "p"; Chr$(0); Chr$(100); Chr$(250) 
Close #1

El tema es que ahora mi cliente me pidió que el sistema no deje hacer una venta si el cajón está abierto.

El manual de la impresora indica que con estos códigos de escape se logra detectar si el cajón está abierto o no: Chr$(&H1B); Chr$(&H75); Chr$(0)

Mi inconveniente es que no sé de qué manera puedo obtener si está abierto o no, ya que cuando expulsa en cajón ENVÍA un pulso y en este otro caso DEVUELVE un dato. ¿Cómo hago para obtener el valor devuelto?

Desde ya, gracias por las respuestas.
Saludos

[David]

Nunca manejé esa clase de impresoras, pero lo que puedes intentar es abrir COM1 como Input o como Random y extraer los datos.
Por ejemplo:

Código:

 
Dim GetData As String
Open "COM1" For Input As #1
GetData = Input(LOF(1), 1)
Close
MsgBox GetData

Compara los valores que te devuelve cuando está cerrado y cuando está abierto.

Espero que sea de ayuda.
Saludos