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