Delphi-PRAXiS - Text ganz einfach Drucken

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Sonstiges (https://www.delphipraxis.net/45-library-sonstiges/)

- - Text ganz einfach Drucken (https://www.delphipraxis.net/6259-text-ganz-einfach-drucken.html)

Daniel B

5. Jul 2003 10:50

Text ganz einfach Drucken

Hallo,

das ist wohl die kürzeste und einfachste möglichkeit um einen Text an den Drucker zu schicken, also einen Text zu drucken. ;)

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  tf: TextFile;

begin

  AssignFile(tf, 'LPT1');

  Rewrite(tf);

  WriteLn(tf, 'http://delphipraxis.net');

  Writeln(tf, #12);

  CloseFile(tf);

end;

Grüsse, Daniel :hi:

Alle Zeitangaben in WEZ +1. Es ist jetzt 00:30 Uhr.