matricial .....
Estou com um probleminha de alinhamento, estou usando uma LX300 quando ela imprime um relatorio ela imprimi normal mas quando ela imprime pela segunda vez ela imprime tudo desalinhada, alguem sabe oq esta acontecendo ou com dar um reset na impressora antes de imprimir ?
Ronaldomr
Curtidas 0
Respostas
Edineidaniel
10/10/2003
Olá,
Não sei não qual o seu código, para impressão; mas eu uso esse e funciona...
Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressao - Linha 0´);
Writeln(Arquivo,´Teste de impressao - Linha 1´);
Writeln(Arquivo,#2715+´Teste de Impressão - Linha 2´);
Writeln(Arquivo,´Teste de impressao - Linha 3´);
Writeln(Arquivo,2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo,´Teste de impressao - Linha 5´);
Writeln(Arquivo,12); // Ejeta a página
CloseFile(Arquivo);
end;
t+
Edinei
Não sei não qual o seu código, para impressão; mas eu uso esse e funciona...
Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressao - Linha 0´);
Writeln(Arquivo,´Teste de impressao - Linha 1´);
Writeln(Arquivo,#2715+´Teste de Impressão - Linha 2´);
Writeln(Arquivo,´Teste de impressao - Linha 3´);
Writeln(Arquivo,2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo,´Teste de impressao - Linha 5´);
Writeln(Arquivo,12); // Ejeta a página
CloseFile(Arquivo);
end;
t+
Edinei
GOSTEI 0
Ronaldomr
10/10/2003
eu tb utilizo estes codigo, o problema e que de vez enquando ela imprimi tudo desalinhada, mas se eu der um reset na impressora ela volta ao normal e eu queria um codigo para resetar ela antes de imprimir
GOSTEI 0