Ok, o código é semelhante ao que usamos. Então você consegue imprimir com sucesso numa porta virtual tipo USB001.
vou fazer um teste no windows vista/windows7 porque no XP realmente não deu certo.. mandei imprimir nada. Obrigado pela atenção. Att, ....................................................... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo....@gmail.com Site: http://www.drdsistemas.com.br/ ....................................................... 2010/1/12 Nazareno Neto <nazareno.nobr...@gmail.com>: > 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 >>>>> > > > >