Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: PatriciaBB en Agosto 18, 2015, 01:12:58 am
-
Hala chico, como están todos mis gurus del VB
Tengo un problema, realice un programa en VB6 que imprime tickets y comprobantes de pagos con una impresora térmica de ticket, de esas que tienen autocorte, pero el problema que se me presenta y no sé cómo solucionarlo es como detectar que la impresora esta por quedarse sin pápale para poder enviar un mensaje o alerta, o cuando se manda a imprimir el comprobante no si imprima en caso quede poco o nada de papel térmico.
ME AYUDAN PLEASE… GRACIAS…!
-
Disculpa mi ignorancia pero.... al margen de tu software ¿puede la impresora saber si ya se le va acabar el papel? Eso me dio curiosidad.
Saludos
-
Master Yacosta, PatriciaBB:
La impresoras termicas (POS) no traen un sistema que detecte cantidad de papel, pues este es por rollo y la durabilidad de este varía en función del comprobante a imprimir.
PatriciaBB, lo que podrías hacer es : si solo se usará para imprimir tus comprobantes (un unico diseño), puedes calcular cuantos comprobantes caben en el rollo de papel e implementar un aviso en pantalla que avise cuando hayas impreso esa cantidad, si caben por ejemplo 200 comprobantes, avisar en pantalla que queda poco papel cuando hayas impreso, no sé, unos 180 comprobantes, una vez cambiado el papel que el usuario responda el mensaje y reinicias el contador.
Saludos Cordiales
-
Si, ya me parecía rarisimo :-)
-
Estimada PatriciaBB
Algunos modelos de impresoras del tipo de impresión de ticket y recibos, así como las de los quioscos multimedia, disponen de sensores de papel, unos más sofisticados que otros.
Para aquellas impresoras que soportan los comandos ESC/POS (entre ellas las de la marca EPSON), existe un juego de comando llamados PAPER SENSOR COMMANDS
Entre este juego de comandos tenemos:
ESC 8 Disable paper-out detector
ESC 9 Enable paper-out detector
ESC c 3 - Select paper sensor(s) to output paper-end signals
ESC c 4 - Select paper sensor(s) to stop printing
El que me parece te podría ser de utilidad es el comando
ESC v - Transmit paper sensor status
El cual desde VB6 lo invocarías de la siguiente manera, el estado de sensor de papel se trasmite como 1 byte de datos, cuya estructura muestro en la tabla de la imagen.
PRINT #1,CHR$(&H1B);"v";
(http://fotos.subefotos.com/96444442445fa2823ae9ee6aab38d973o.png)
Saludos, desde algún lugar de Lima-Perú
-
Albertomi siempre me sorprende, buen aporte amigo.
Saludos
-
Genial!
Desconocía totalmente esos comandos, haré algunas pruebas para saber si las impresoras POS que se distribuyen a traves del SII en Chile soportan esos comandos.
Gracias Albertomi