FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como preguntar en Delphi si la Impresora esta Apagada!!
Saludos a Todos!!!
Tengo un pequeño sistema de impresion de Tickets y estoy buscando una saber antes de enviar la impresion si la impresora esta apagada, si alguien lo sabe, por favor ayudeme, este es el codigo que uso para imprimir: try AssignFile(vlpLst,'LPT1'); Rewrite(vlpLst); Writeln(vlpLst,'ARTEAGA GONZALEZ CONSUELO'); Writeln(vlpLst,'AV. MICHOACAN #1865-3, COL. PUEBLO NUEVO'); Writeln(vlpLst,'MEXICALI, B.C R.F.C. AEGC-661021-FG9'); Writeln(vlpLst,'------------------------------------'); Writeln(vlpLst,' Venta Dlls. T.C. Pesos'); Writeln(vlpLst); Writeln(vlpLst,'Comprobante simplificado no Deducible'); Writeln(vlpLst,' CloseFile(vlpLst); Except MessageDlg('Error de Comunicacion con Impresora!!', mtError, [mbOk], 0); End; Este codigo solo me verifica la existencia del LPT1, pero como si existe y la impresora esta apagada, no me manda ningun mensaje de error. Gracias |
#2
|
||||
|
||||
Lo único que puedes hacer es estudiar las excepciones que se pueden producir al imprimir y mostrar un mensaje más "detallado", pero de ahí a saber si está apagada o encendida van mil leguas.
Para saber si la impresora existe puedes consultar el objeto Printers.count-1 y ver si es mayor que 0. Si la persona es muy despistada, ponle un mensaje en pantalla durante ... 2 Segundos que diga: "Enciende la impresora tuuuuuuuuuuuuu" Saludos |
|
|
|