Problema de Impressão na EPSON LX300
Estou usando o seguinte código, porém não está imprimindo, somente se desligar a impressora e liga-la novamente, onde pode estar o erro?
Código:
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,´ Teste de Impressao - Linha 2´);
Writeln(Arquivo,´ Teste de Impressao - Linha 3´);
Writeln(Arquivo,´ Teste de Impressao - Linha 4´);
Writeln(Arquivo,´ Teste de Impressao - Linha 5´);
Writeln(Arquivo,´´);
Writeln(Arquivo,´´);
CloseFile(Arquivo);
end;
Desde Já agradeço.
Código:
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,´ Teste de Impressao - Linha 2´);
Writeln(Arquivo,´ Teste de Impressao - Linha 3´);
Writeln(Arquivo,´ Teste de Impressao - Linha 4´);
Writeln(Arquivo,´ Teste de Impressao - Linha 5´);
Writeln(Arquivo,´´);
Writeln(Arquivo,´´);
CloseFile(Arquivo);
end;
Desde Já agradeço.
Ltsilva
Curtidas 0
Respostas
Carnette
24/03/2003
Estou usando o seguinte código, porém não está imprimindo, somente se desligar a impressora e liga-la novamente, onde pode estar o erro?
Código:
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,´ Teste de Impressao - Linha 2´);
Writeln(Arquivo,´ Teste de Impressao - Linha 3´);
Writeln(Arquivo,´ Teste de Impressao - Linha 4´);
Writeln(Arquivo,´ Teste de Impressao - Linha 5´);
Writeln(Arquivo,´´);
Writeln(Arquivo,´´);
CloseFile(Arquivo);
end;
Desde Já agradeço.
Já experimentou colocar antes do closefile
WRITLN(ARQUIVO, #12);
O 12 é o eject da impressora
GOSTEI 0
Ltsilva
24/03/2003
Obrigado por responder.
Mas já usei sim, na verdade quando fiz o teste já estava com este comando, so que soltava muito papel então eu tirei.
E agora o que pode ter acontecido?
Mas já usei sim, na verdade quando fiz o teste já estava com este comando, so que soltava muito papel então eu tirei.
E agora o que pode ter acontecido?
GOSTEI 0
Pirasol
24/03/2003
Os modelos antigos de LX-300 possuiam um problema de impressão no windows, problema este resolvido através da troca da eprom.
Verifique se a impressão via qualquer outro software do windows ocorre corretamente nesta impressora.
Verifique se a impressão via qualquer outro software do windows ocorre corretamente nesta impressora.
GOSTEI 0
Anonymous
24/03/2003
Os modelos antigos de LX-300 possuiam um problema de impressão no windows, problema este resolvido através da troca da eprom.
Verifique se a impressão via qualquer outro software do windows ocorre corretamente nesta impressora.
É verdade, veja mais em www.clubedohardware.com.br
GOSTEI 0
Crash
24/03/2003
Kra tava com um problema parecido com uma LX-300, resolvi utilizando um componente chamado RDPrint. Eu tenho ele para delphi 5 se vc me passa um mail q eu retorno ele como anexo. blz?
flws
flws
GOSTEI 0
Helderjr
24/03/2003
Também aconselho a usar o RDprint é muito bom para impressão no formato (DOS) tanto em matricial/laser/deskjet a vários recursos.
GOSTEI 0