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
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
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
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:
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:
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
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
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,
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.
9 matches
Mail list logo
