IMPRESSORA:TextFile;
PORTA:String;
Arq : Tinifile;
//eu fico salvando as portas de impressao para venda, nota fiscal e etc e,
um arquivo ini
//Verifica Impressora
Arq := TIniFile.Create('IMPRESSORA.INI');
//aqui eu pego a porta da impressao da NOTA
Vporta := Arq.ReadString ('NOTA','PORTA','');
//checo se tem algo, se nao tiver coloco na LPT1 mesmo
IF (Length(TRIM(Vporta))= 0) THEN
BEGIN
Arq.WriteString('NOTA','PORTA','LPT1');
Vporta := Arq.ReadString('NOTA','PORTA','');
END;
Arq.Free;
//Relaciona a variável impressora com a
//lpt1: - Poderia ser LPT, COM1,// Servidor/impressora
AssignFile(IMPRESSORA,Vporta);
//abre a porta da impressão
Rewrite(IMPRESSORA);
//reseta a impressora
Write(IMPRESSORA,#27+'x0');
Writeln(Impressora,Format('%87s',['Coloque aqui seu texto']));
// Fecha a porta de impressão
System.Close(Impressora);
//vale resaltar que isso eh mesma coisa de salvar em um arquivo, se na
porta vc colocar 'C:\TESTE.TXT' ele vai savar isso ai em um arquivo txt
//Se nao der pra enteder me fala ai q posso dar umas dicas!
2010/1/12 Eduardo Silva dos Santos <eduardo....@gmail.com>
>
>
> Nazareno, se for possível poste uma parte do código de como você faz
> isso, porque realmente não é tão trivial quanto imprimir direto na LPT
>
> Att,
> .......................................................
> Eduardo Silva dos Santos
> DRD SISTEMAS
> (27) 3218-4201
> (27) 9961-7095
> MSN: eduardo....@gmail.com <eduardo.drd%40gmail.com>
> Site: http://www.drdsistemas.com.br/
> .......................................................
>
> 2010/1/11 Nazareno Neto
> <nazareno.nobr...@gmail.com<nazareno.nobrega%40gmail.com>
> >:
> > rapaz eu uso aqui sem problema hoje no windows 7 e antes tambem no vista!
> >
> > 2010/1/11 Alex Antunes
> > <alex.antu...@terra.com.br<alex.antunes%40terra.com.br>
> >
> >
> >>
> >>
> >> Detalhe,
> >>
> >> Isso não fuciona apartir do Windows XP.
> >>
> >> Alex
> >>
> >> -----Mensagem original-----
> >> De: delphi-br@yahoogrupos.com.br
> >> <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br> [mailto:
> >> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br>] Em
> >> nome de Omar Marques
> >> Enviada em: segunda-feira, 11 de janeiro de 2010 12:54
> >>
> >> Para: delphi-br@yahoogrupos.com.br
> >> <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br>
> >> Assunto: Res: RES: [delphi-br] Ref. Impressão direta porta USB002
> >>
> >>
> >> Opa. tentei colocar o nome da minha maquina, mas ele não aceita.
> >> f
> >> Fui ao painel de controle/sistema/ e vi o nome do meu computador e
> coloquei
> >> mas deu erro 231
> >>
> >> Usei assim: NET USE LPT1 \\ohaddad\GenericaUSB e deu o erro 231
> >>
> >> abraço.
> >>
> >> Omar M. Haddad
> >> Analista de Sistemas
> >>
> >> ________________________________
> >> De: Alex Antunes
> >> <alex.antu...@terra.com.br<alex.antunes%40terra.com.br><alex.antunes%
> 40terra.com.br>
> >> <mailto:alex.antunes%40terra.com.br
> >> <alex.antunes%2540terra.com.br><alex.antunes%
> 2540terra.com.br>> >
> >> Para: delphi-br@yahoogrupos.com.br
> >> <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br><mailto:
> >> delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>>
> >>
> >> Enviadas: Segunda-feira, 11 de Janeiro de 2010 11:44:01
> >> Assunto: RES: [delphi-br] Ref. Impressão direta porta USB002
> >>
> >> Boa tarde.
> >>
> >> Vc compartilha a impressora na sua estação.
> >>
> >> E faz o net use LPT1 \\SUAMAQUINA\ IMPRESSORA_ COMPARTILHADA
> >>
> >> E funciona !!!
> >> Falowww.
> >>
> >> Alex
> >>
> >> -----Mensagem original---- -
> >> De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br
> ]
> >> Em
> >> nome de Omar Marques Enviada em: segunda-feira, 11 de janeiro de 2010
> 11:28
> >> Para: delphi...@yahoogrup os.com.br
> >> Assunto: [delphi-br] Ref. Impressão direta porta USB002
> >>
> >> Salve "Delphianos( as)",
> >>
> >> Tudo bem ? Desculpa, se estou sendo descuidado em algum sentido, mas
> estou
> >> precisando de uma rotina para imprimir diretamente em uma impressora
> >> autenticadora, só que ela utiliza comunicação USB(está instalada na
> porta
> >> USB002);
> >>
> >> Com impressão direta para LPT1 ou COM1, eu consigo trabalhar de boa, mas
> >> abrir a porta "USB" para enviar meu relatório, por exemplo, com
> Write(...),
> >> não consigo.
> >>
> >> Vi uma rotina na net, mas não consegui usar.
> >>
> >> Vi também uma rotina usando NET USE para utilizar a USB002 como LPT1,
> mas
> >> na
> >> minha máquina não consegui localizar a impressora.
> >>
> >> Alguém tem alguma saída, código, dica sobre este assunto ?
> >>
> >> PS: Tem algum adaptador físico que possa ajudar ou não
> >>
> >> Grato a atenção dos nobres colegas.
> >>
> >> Omar M. Haddad
> >> Analista de Sistemas
> >>
> >> ____________ _________ _________ _________ _________ _________ _ Veja
> quais
>
> >> são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca
> >> dos.yahoo. com <http://br.maisbusca dos.yahoo. com>
>
> >>
> >> [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 <http://br.maisbuscados.yahoo.com>
>
> >>
> >> [As partes desta mensagem que não continham texto foram removidas]
> >>
> >>
> >>
> >
> >
> >
> > --
> > Nazareno Neto
> > Programador Delphi e Firebird
> >
> > http://www.delphisistemas.com.br
> > nazarenon...@hotmail.com <nazarenoneto%40hotmail.com>
> > nazareno.nobr...@gmail.com <nazareno.nobrega%40gmail.com>
>
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > ------------------------------------
> >
> > --
>
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> >
>
>
--
Nazareno Neto
Programador Delphi e Firebird
http://www.delphisistemas.com.br
nazarenon...@hotmail.com
nazareno.nobr...@gmail.com
[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
