Delphi - Detectar impresora apagada

Es posible saber si una impresora esta apagada?

El parametro prt debe ser 1 para LPT1, 2 LPT2 (el valor depende del puerto)

Function TForm1.encendida(prt: Byte): Boolean;
var
pto: Word;
rdo: Byte;
Begin
pto := prt - 1;
Asm
MOV DX, pto
MOV AX, $0200
INT $17
MOV rdo, AH
End;
Result := rdo = 144;
End;

No recuerdo exctamente donde obtuve esta funcion, creo que en torry.net bueno yo utilizo
Delphi 6 bajo Windows 98 y me funciona muy bien, suerte.

Gracias pero no me sirve, consiste en detectar una impresora de red ya que puede estar pinchada y compartida pero el PC al que esta enchufada no esta encendido por ejemplo.

Me explico, en una aplicacion para unos terminales de radiofrecuencia le aparecen todas las impresoras que ve el servidor pero tengo que controlar que seleccione una que este operativa.

Gracias