Foros del Web - Expulsar cajón de dinero

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Expulsar cajón de dinero (http://www.forosdelweb.com/f69/expulsar-cajon-dinero-585163/)

Expulsar cajón de dinero

Hola, tengo una impresora serial Epson TM-U950 para imprimir tickets conectada a un cajón de dinero.

La impresora imprime bien, pero no logro expulsar el cajón de dinero.

El cajón es un AQ-4000/7000 Series.

En el manual trae la secuencia de escape para expulsar el cajón en QBASIC que es:

PRINTER #1,CHR$(&H1B);"P";CHR$(0);CHR$(100);CHR$(250);

He buscado en la web y encontré esta misma secuencia utilizada por otros, también hay otras secuencias, pero ninguna de ella logra expulsar al cajón.

Tal vez deba fijarme en algún dato del hardware, pero la conexión es simple porque un cable conecta la impresora con el cajón.

Desde ya, les agradezco las respuestas.
Saludos

Re: Expulsar cajón de dinero

Cita:

Iniciado por ci2000 (Mensaje 2399262)

La única idea que se me ocurre para hacerlo con Visual Basic sería:

Código:

 

Printer.Print Chr$(&H1B);"P";Chr$(0);Chr$(100);Chr$(250);

Printer.EndDoc

No sé si funcionará pues no tengo el HardWare, pero puedes intentarlo.
Si no funciona puedes crear un programa en QBASIC que abra el cajón y lo llamas desde Visual Basic usando Shell...