Fórum matricial ..... #187876
10/10/2003
0
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
Curtir tópico
+ 0
Responder
Posts
11/10/2003
Edineidaniel
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
Responder
Gostei + 0
11/10/2003
Ronaldomr
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)