Achei esse outro aqui tbem...
Verificando se a impressora está ativa
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() dobegin MsgBox('Verifique a
Impressora!','ATENÇÃO');end; 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;
Thiago de Castro X. da Silveira
Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]
---------------------------------
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
