Função que informa se existe impressora ativa?!

[rodrigom 0]

Bom dia galera,Alguém possui alguma função em delphi que permita saber se existe impressora instalada e ativa???Gostaria de fazer esse teste antes de mandar um documento p/ impressão.Desde já agradeço!!

[Samth 0]

Função pra verificar impressora instalada:

 

try                                    // Set printer so, for get informationJustTest := Printer.Orientation;IsPrinterSetup := true;excepton EPrinter do IsPrinterSetup := false;end;if not IsPrinterSetup thenbeginSayAboutIt;ExitProgram;End;Call it in before Application.Initialize

Verificar se está ativa:

 

Na sua unit, faça a chamada abaixo:                  While not PrinterOnline() dobeginMsgBox('Verifique a Impressora!','ATENÇÃO');end;Function PrinterOnLine : Boolean;ConstPrnStInt : Byte = $17;StRq : Byte = $02;PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }VarnResult : byte;Begin (* PrinterOnLine*)Asmmov ah,StRq;mov dx,PrnNum;Int $17;mov nResult,ah;end;PrinterOnLine := (nResult and $80) = $80;End;

Essa dica eu peguei no Deephi

 

[]'s

Samth