Fórum Imprimir o conteudo de um TXT #271850

10/03/2005

0

Delphi

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

Responder

Posts

11/03/2005

Rodc

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


Responder

Gostei + 0

11/03/2005

Rômulo Barros 

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;



Responder

Gostei + 0

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

Aceitar