Delphi dicas

Testar a impressora

Function TForm1.PrinterOnLine : Boolean;

Const

PrnStInt : Byte = $17;

StRq : Byte = $02;

PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2,

etc. }

Var

nResult : byte;

Begin

        Asm

                mov ah,StRq;

                mov dx,PrnNum;

                Int $17;

                mov nResult,ah;

        end;

        PrinterOnLine := (nResult and $80) = $80;

end;



//Utilize a função assim:



procedure TForm1.Button1Click(Sender: TObject);

begin

        If not PrinterOnLine then ShowMessage('Verifique

        a Impressora!');

end;