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);
end;
Das ist der Code, mit dem ich das Memo1 auf meinem Formular ausdrucken lasse. Wie kann ich jetzt zum Beispiel noch mehr Memofelder auf dieses Blatt drucken?
Einfach unterhalb des ersten Memofeldes.
Wie stell ich das an?