Text ganz einfach Drucken

[Daniel B]

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: