resolvido com o copyfile. Muito Obrigado!!!
Em 20/03/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
>
> WinExec(PChar('COMMAND.COM /C type c:\pedido.txt >
> COM1),SW_SHOWMINIMIZED)
>
> caso não resolva, faça assim,
>
> crie um arquivo bat, ex: c:\imprime.bat
>
> conteúdo do arquivo:
> --------------------------------
> mode COM1 9600,n,8,1
> MODE LPT1:=COM1:
> type c:\arquivo.txt > LPT1
>
> no PAINEL DE CONTROLE A IMPRESSORA TEM QUE ESTAR NA PORTA COM1
>
> Acredito que resolva.
>
> ----- Original Message -----
> From: Mauricio Lacerda
> To: [EMAIL PROTECTED] <lista-delphi%40yahoogrupos.com.br> ;
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Monday, March 19, 2007 4:37 PMv
> Subject: [delphi-br] copiar arquivo para impressora
>
> olá. estou usando uma impressora de etiquetas urano e imprimo nela pelo
> comando no dos "copy <nome do arquivo> <\\nome_maquina\impressora>"
> exemplo: "copy c:\arquivo.txt \\maquina1\impressora1".
> se eu executo o comando pelo dos sem ser pelo delphi, ela funciona e
> imprime
> mas se eu tento pelo delphi eu nao consigo. tentei pelo
> winexec e pelo shellexecute e nao consigo.
> as formas que tentei e nao funcionaram são:
> winexec('copy C:\uranofile.txt com1' , sw_show);
> ShellExecute(0, pchar('PRINT'), PChar('copy C:\uranofile.txt com1'), nil,
> nil,SW_SHOWMINIMIZED);
> WinExec(PChar('command.com /c copy C:\uranofile.txt com1'),SW_shownormal);
>
> se alguém souber como dar esse comando pelo delphi. por favor me ajudem!
> Muito Obrigado!!
>
> --
> Maurício Lacerda Savaris
> [EMAIL PROTECTED] <mauriciolac%40yahoo.com.br>
> Poa - RS
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Maurício Lacerda Savaris
[EMAIL PROTECTED]
Poa - RS
[As partes desta mensagem que não continham texto foram removidas]
