Como preguntar en Delphi si la Impresora esta Apagada!!

[Ricsato]

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

[[Lepe]]

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