Amigo Eduardo Silva, do modo que falei serve sim para imprimir local, mas do
mesmo modo q vc faz para imprimir remoto, no seu proprio computador, vc
compartilha a impressora e colocao la do modo que falei, ele vai estar
local, mas vc vai colocar como se estive remota!
pelo aqui e nos clientes funciona perfeito!
2010/1/13 lsbdevelopment <lucianosbr...@hotmail.com>
>
>
> Ola amigo, para imprimir na usb local proceda assim
>
> crie uma impressora generica, compartilhe ela
> em propiedade da impressora generica, na aba portas
> marque a opção ativar pool de impressão, depois selecione
> a porta usb. eu fiz assim e funcionou.
> para rede vc pode usar o net use.
>
> vlw.
>
> --- Em delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>,
> Nazareno Neto <nazareno.nobr...@...> escreveu
>
> >
> > 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....@...>
>
> >
> > >
> > >
> > > 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....@... <eduardo.drd%40gmail.com>
>
> > > Site: http://www.drdsistemas.com.br/
> > > .......................................................
> > >
> > > 2010/1/11 Nazareno Neto <nazareno.nobr...@...<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...@...<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...@...<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...@... <nazarenoneto%40hotmail.com>
> > > > nazareno.nobr...@... <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...@...
> > nazareno.nobr...@...
>
> >
> >
> > [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
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
