Olá Nazareno, dessa forma sei que funciona, agora localmente você não consegue imprimir, somente por outras máquinas da rede. é ai que porca torce o rabo.
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/13 Nazareno Neto <nazareno.nobr...@gmail.com>: > tipo eu faco o seguinte, compartilho a impressora quando ela estar na porta > usb001 por com o nome lx300, ai vo la no porcedimento de impressao e na > porta coloco assim: \\meupc\lx300 > ai quando coloco para imprimir ele impreme na porta usb > > 2010/1/12 Eduardo Silva dos Santos <eduardo....@gmail.com> > >> >> >> 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 <eduardo.drd%40gmail.com> >> Site: http://www.drdsistemas.com.br/ >> ....................................................... >> >> 2010/1/12 Nazareno Neto >> <nazareno.nobr...@gmail.com<nazareno.nobrega%40gmail.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<eduardo.drd%40gmail.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> <eduardo.drd% >> 40gmail.com> >> >> >> Site: http://www.drdsistemas.com.br/ >> >> ....................................................... >> >> >> >> 2010/1/11 Nazareno Neto >> >> <nazareno.nobr...@gmail.com<nazareno.nobrega%40gmail.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> >> <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><delphi-br% >> >> 40yahoogrupos.com.br> [mailto: >> >> >> delphi-br@yahoogrupos.com.br >> >> >> <delphi-br%40yahoogrupos.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><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><alex.antunes% >> >> 40terra.com.br> >> >> >> <mailto:alex.antunes%40terra.com.br >> >> >> <alex.antunes%2540terra.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><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> <nazarenoneto% >> 40hotmail.com> >> >> > nazareno.nobr...@gmail.com >> >> > <nazareno.nobrega%40gmail.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 <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 >>>>> > > > >