Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#1

Text ganz einfach Drucken

  Alt 5. Jul 2003, 10:50
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
  Mit Zitat antworten Zitat