Super!
Habs raus, richtiger Code müsste also folgender sein:
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]);
for Zeile := 0 to Memo2.Lines.Count - 1 do
Writeln(PrintText, Memo2.Lines[Zeile]);
CloseFile(PrintText);
end;
Jetzt noch ne kleine Frage: Wie änder ich die Schriftgröße auf dem Ausdruck? Die Schriftgröße im Memofeld soll nicht höher werden!
Und noch eine wo wir grade dabei sind: Wie kann ich es anstellen, dass neben die erste Line von Memo1 auch gleich die erste Line von Memo2 gedruckt wird? Das ganze also nicht untereinander, sondern nebeneinander!
Wär echt klassee wenn das jemand weiss, danke schonmal