GARANTIR DESCONTO

Fórum Problema de Impressão na EPSON LX300 #149301

24/03/2003

0

Delphi

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.


Ltsilva

Ltsilva

Responder

Posts

24/03/2003

Carnette

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


Responder

Gostei + 0

24/03/2003

Ltsilva

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?


Responder

Gostei + 0

24/03/2003

Pirasol

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.


Responder

Gostei + 0

24/03/2003

Anonymous

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


Responder

Gostei + 0

24/03/2003

Crash

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


Responder

Gostei + 0

25/03/2003

Helderjr

Também aconselho a usar o RDprint é muito bom para impressão no formato (DOS) tanto em matricial/laser/deskjet a vários recursos.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar