Imprimir arquivo txt na LPT1

Delphi

01/04/2003

Olá meus amigos

Gostaria de saber como faço para imprimir direto na LPT1, um arquivo texto, (Ex: relatorio.txt).

Desde já agradeço.


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

01/04/2003

Olá meus amigos Gostaria de saber como faço para imprimir direto na LPT1, um arquivo texto, (Ex: relatorio.txt). Desde já agradeço.


procedure TForm1.Button1Click(Sender: TObject);

var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, ´Print this text´);
  CloseFile(MyFile);
end;



GOSTEI 0
POSTAR