Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-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.brdelphi-br%
40yahoogrupos.com.brdelphi-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.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
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
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
Olá lsbdevelopment, sua solução é boa, fiz o teste aqui, e funcionou
parcialmente, se eu mandar uma impressão pelo bloco de notas para a
impressora generica o windows redireciona para a impressora instalada na
porta USB, porém se eu tentar imprimir
direto na porta LPT1 da impressora generica, seja no Edit do dos ou de
qualquer outra forma nada acontece.
Com essa solução vc usa impressão direta?
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 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.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-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.brdelphi-br%
40yahoogrupos.com.brdelphi-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.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
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:
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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.comnazareno.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.comeduardo.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.comnazareno.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.bralex.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.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-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.brdelphi-br%
40yahoogrupos.com.brdelphi-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.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
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
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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.comnazareno.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.comeduardo.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.comnazareno.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.bralex.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.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-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.brdelphi-br%
40yahoogrupos.com.brdelphi-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.bralex.antunes%40terra.com.br
alex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Enviadas: Segunda-feira, 11 de Janeiro de 2010 11:44:01
Assunto: RES:
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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 Detalhe, Isso não fuciona apartir do Windows XP. Alex -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.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 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 mailto:alex.antunes%40terra.com.br alex.antunes%2540terra.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: 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 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
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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 Site: http://www.drdsistemas.com.br/ ... 2010/1/11 Nazareno Neto nazareno.nobr...@gmail.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 Detalhe, Isso não fuciona apartir do Windows XP. Alex -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.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 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 mailto:alex.antunes%40terra.com.br alex.antunes%2540terra.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: 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 nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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.comnazareno.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.bralex.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.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-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.brdelphi-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.bralex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
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
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
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.comnazareno.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.bralex.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.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-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.brdelphi-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.bralex.antunes%40terra.com.bralex.antunes%
40terra.com.br
mailto:alex.antunes%40terra.com.br
alex.antunes%2540terra.com.bralex.antunes%
2540terra.com.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brmailto:
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
Re: RES: [delphi-br] Ref. Impressão direta porta US B002
aqui faço o seguinte para imprimir em usb, compartilho a impressora e faco o seguinte: AssignFile(IMPRESSORA,\\nomepc\impressoraCompartilhada); Rewrite(IMPRESSORA); Writeln(Impressora); onde IMPRESSORA é do tipo TextFile, ai depois eh so dar os writeln escrevendo no arquivo. 2010/1/11 Omar Marques webomarmat...@yahoo.com.br 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 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.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 [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
