Memofeld inhalt drucken

[smart]

Du kannst auch so ein TMemo ausdrucken:

Delphi-Quellcode:

Var
    Zeile: Integer;
    PrintText: TextFile;
begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  for Zeile := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, Memo1.Lines[Zeile]);
  CloseFile(PrintText);