Verificar se a impressora está online

Function PrinterOnLine: Boolean
const
PrnStInt: Byte = $17;
StRq: Byte = $02;
PrnNum: Word = 0;
var
nResult: Byte;
begin
ASM
mov ah, StRq;
mov dx, PrnNum;
Int $17;
mov nResult, ah;
end;
end;