Home » Tipps & Tricks » Komponenten » TRichEdit/TMemo/TEdit » Inhalt eines Memos drucken
Inhalt eines Memos drucken
In folgendem Beispiel wird zunächst eine Dateivariable
procedure TForm1.Print1Click(Sender: TObject); var zeile: Integer; PrintText: TextFile; //Deklaration einer Dateivariablen begin if PrintDialog1.Execute then begin // Zuweisung von PrintText an den Drucker AssignPrn(PrintText); Rewrite(PrintText); // Erzeugen und Öffnen der Ausgabedatei try // Zuweisung der eingestellten Schriftart an die Leinwand Printer.Canvas.Font := Memo1.Font; for Line := 0 to Memo1.Lines.Count - 1 do //Schreiben des Inhalts von Memo1 in das Druckerobjekt Writeln(PrintText, Memo1.Lines[Line]); finally CloseFile(PrintText); // Schließen der Druckervariablen end; end; end;