Imprimir o conteudo de um TXT

Delphi

10/03/2005

Tenho um arquivo chamado impressão.txt, gostaria de saber como faço para imprimir o conteudo deste arquivo e apos cada impressão limpa-lo,

Gostaria de fazer isso usando

AssignFile, Rewrite, Writeln.



Obrigado


Gameiro

Gameiro

Curtidas 0

Respostas

Rodc

Rodc

10/03/2005

Você pode copiar o arquivo para a porta de impressão (por exemplo LPT1) que a impressora já imprime, pelomenos na matricial.


GOSTEI 0
Rômulo Barros

Rômulo Barros

10/03/2005

procedure TForm1.Button2Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F, ´LPT1´);
Rewrite(F);
try
WriteLn(F,´Linha1´);
WriteLn(F,´Linha2´);
Finally
CloseFile(F);   
End;



GOSTEI 0
POSTAR