Impressão em mini-impressora em rede

Delphi

07/05/2005

Eu uso o codigo abaixo para impressão em mini impressora
AssignFile(F,´LPT1´); // ou COM1
Rewrite(F);
Writeln(F,module.tableEmpresaNome.asstring);
Writeln(F,´UN  Descrição                 Valor´);
Writeln(F,´----------------------------------------------´);
Writeln(F,´-------------------------------------´);
Writeln(F,´                 ASS.´);

CloseFile(F);


Com a impressora local FUNCIONA CORRETAMENTE, porem para impressão em rede não consegui, eu ja tentei trocar ´LPT1´ para ´\\servidor\lpt1´ mas não funciona.

Alguém tem uma idéia


Sistemald

Sistemald

Curtidas 0

Respostas

Edilcimar

Edilcimar

07/05/2005

se estiver usando xp vá no dos e destrua a impressora de rede e depois construa novamente, se utilizar dentro do windows não funciona


GOSTEI 0
Sistemald

Sistemald

07/05/2005

Você esta falando do ´net use´, caso não seja mais especifico e destruir no dos


GOSTEI 0
Edilcimar

Edilcimar

07/05/2005

sim, o net print


GOSTEI 0
Sistemald

Sistemald

07/05/2005

No codigo AssignFile(F,´LPT1´); // ou COM1
devo deixar LPT1?


GOSTEI 0
Edilcimar

Edilcimar

07/05/2005

deve ficar o caminho do servidor


GOSTEI 0
Edilcimar

Edilcimar

07/05/2005

veja este exemplo que eu utilizo
If (UpperCase(Programa) = ´C:\MEUPROGRAMA´) then
AssignFile(Arquivo,´LPT1´)
Else
AssignFile(Arquivo,Servidor);
servidor é o caminho do servidor


GOSTEI 0
Sistemald

Sistemald

07/05/2005

ok, vou fazer uns teste obrigado


GOSTEI 0
POSTAR