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-br@yahoogrupos.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 <brunolbra...@yahoo.com.br>
>
> Para: delphi-br@yahoogrupos.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!
>
>
>
