Buscar por:

Verificando impressora / impressao

Código

{Verificar se a impressora esta OK, antes de iniciar 

uma impressão é um bom procedimento, abaixo segue 

uma função que retorna true se a impressora esta pronta 

para imprimir.}

Function PrinterOnLine : Boolean;

Const

PrnStInt : Byte = $17;

StRq : Byte = $02;

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

Var

nResult : byte;

Begin (* PrinterOnLine*)

Asm

mov ah,StRq;

mov dx,PrnNum;

Int $17;

mov nResult,ah;

end;

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

End;

//Esta função foi Testada com Delphi 1, Delphi 2 e 3. 

//Exemplo de utilização: 

If not PrinterOnLine then ShowMessage('Atenção! Verifique a Impressora...');