Na sua unit, faça a chamada abaixo:
While not PrinterOnline() do
begin
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;
________________________________
De: Bruno Lepesqueur <brunolbra...@yahoo.com.br>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 9:42:28
Assunto: Res: Re: Res: [delphi-br] Impressão rave direto na impressora
Pessoal... obrigado, mas ainda gostaria de saber se tem como ele checar se a
impressora está em modo de uso ou não, por exemplo:
Esse código que vcs me passaram informa quais as impressoras que estão
instaladas no micro, mas não se elas estão ligadas ou conectadas (pronta
para uso). Tem algum código q me informa o status dela?
Obrigado!
-------Mensagem original---- ---
De: Moacir - GMail
Data: 30/01/2009 09:09:42
Para: delphi...@yahoogrup os.com.br
Assunto: Re: Res: [delphi-br] Impressão rave direto na impressora
Bruno,
Inclua na clausula USES (lá no inicio do teu fonte) a unit Printers;
Após isto vc poderá fazer como abaixo descrito:
Label1.Caption: =Printer. Printers. Text;
ou algo do tipo
If Printer.Printers. Text='' then
ShowMessage( 'Nenhuma impressora configurada !!')
else
ShowMessage( 'Impressoras configuradas: '+#13+Printer. Printers. Text);
Sucesso !!
Moacir
Bruno Lepesqueur escreveu:
> Amigo... esses comandos eu uso no próprio Delphi ou são comandos do
windows?
>
> Eu digitei esses comandos no delphi em um bitbtn, mas o delphi não aceita!
>
>
>
> Obrigado pela força!
>
>
>
> -------Mensagem original---- ---
>
>
>
> De: Rosberg Soares
>
> Data: 29/01/2009 18:41:25
>
> Para: delphi...@yahoogrup os.com.br
>
> Assunto: Res: [delphi-br] Impressão rave direto na impressora
>
>
>
> Com esse comando vc consegue o nome de todas as empressoas no windows.
>
>
>
> USES Printers
>
>
>
> IMPRESSORA_NO_ SISTEMA := printer.Printers. Text;
>
>
>
> ____________ _________ _________ __
>
> De: Bruno Lepesqueur <brunolbrasil@ yahoo.com. br>
>
> Para: delphi...@yahoogrup os.com.br
>
> Enviadas: Quinta-feira, 29 de Janeiro de 2009 15:04:18
>
> Assunto: [delphi-br] Impressão rave direto na impressora
>
>
>
> Boa tarde pessoal!
>
>
>
> Seguinte... criei o seguinte código para imprimir no rave direto na
>
> impressora:
>
>
>
> dmoRelatorios. rvsPedidosPre. DefaultDest := rdPrinter;
>
> dmoRelatorios. rvsPedidosPre. SystemSetups := dmoRelatorios. rvsPedidosPre
>
> SystemSetups - [ssAllowSetup] ;
>
> dmoRelatorios. rvPedidosPre. ProjectFile := 'C:\RelPedidoNF. rav';
>
> dmoRelatorios. rvPedidosPre. ExecuteReport( 'Report1' );
>
>
>
> Dessa forma ele imprime direto na impressora que eu tenho configurada como
>
> padrão, mas acontece uns erros qdo eu não tenho nehuma impressora
>
> configurada em meu micro e o sistema trava.
>
> Teria como antes de executar esses código eu pedir para o delphi verificar
a
>
> comunicação com a impressora pra ver se ela está presente e pronta pra
>
> imprimir?
>
>
>
> Obrigado!
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
