3/16/2007

Delphi: Testa se Impressora Ativa

Testando se a impressora matricial está ativa.

Impressão direto na porta de impressora.

Var TesteImpressora:TextFile;
Begin
try
// Teste da Impressora
AssignFile(TesteImpressora, 'LPT1:');
Rewrite(TesteImpressora);
Write(TesteImpressora,' '); // Mandando alguma coisa para a impressora
CloseFile(TesteImpressora);
.
.
.
//Continuando o programa normalmente.

except
CloseFile(TesteImpressora);
MessageDlg('Impressora inativa', mtError,[mbOK],1);
end
End;

Um comentário:

SergioKawahara disse...

Caro Zeca, estou procurando uma alternativa pra resolver esse problema da verificação da impressora, mas ainda naum encontrei o exemplo que vc postou aqui eh o que eu venho usando mas a resposta que a impressora naum esta ativa demora muito dando a impressão que o sistema travou, vc tem outra solução?

Abraços

Sergio Kawahara