Impressao xp em rede ja tem solução ?

Delphi

23/11/2004

Ola

Tenho um relatório no xp usando writeln, mas o xp não imprime porque bloqueia a porta. Até ai nenhuma novidade, mas gostaria de saber se alguem já achou uma solução para este problema. Mesmo que seja um utiliário que faça isso resolve meu problema.

Se não tiver uma resposta positiva peço para não responder.

Muuuuuito grato

Marcos Roberto


Marcosrodias

Marcosrodias

Curtidas 0

Respostas

Dedi

Dedi

23/11/2004

Amigo,
Faça o teste coloque no lugar de Lpt1 o nome do computador+impressora
ex: 
\\pc_impressoras\epson

ex2:
Memo1.Lines.SaveToFile(´\\pc_impressoras\epson´);

ex3:
procedure TForm1.Button2Click(Sender: TObject);
var
F : TextFile;
i : integer;
begin
 AssignFile(F,´\\pc_impressoras\epson´);
 Rewrite(F);
 i := 0;
 Writeln(F,´Teste de impressao - Linha 0´);
 Writeln(F,´Teste de impressao - Linha 1´);
 Writeln(F,#2715+´Teste de Impressão - Linha 2´);
 Writeln(F,´Teste de impressao - Linha 3´);
 Writeln(F,2718+´Teste de Impressão - Linha 4´);
 Writeln(F,´Teste de impressao - Linha 5´);
 Writeln(F,12); // Ejeta a página
 CloseFile(F);
end;



GOSTEI 0
Imoreira

Imoreira

23/11/2004

Utilize o componente DXPrint.

Você pode selecionar a impressora na hora da impressão.


GOSTEI 0
POSTAR