Fórum Imprimir arquivo txt na LPT1 #150886

01/04/2003

0

Delphi

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

Responder

Posts

01/04/2003

Aroldo Zanela

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;



Responder

Gostei + 0

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

Aceitar