fbpx

Verificar a impressora, antes de uma impressão

Dicas de Programação Delphi

Como montar uma rotina em Delphi para verificar a impressora, antes de uma impressão

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…’);

COMPARTILHE ISSO:

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on whatsapp
WhatsApp
Share on reddit
Reddit
Share on email
Email

Comentários

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.