Zitat von
Chakotay1308:
PS: Muss man vielleicht ersteinmal neustarten, oder was?
Nein. Nimm mal eine andere Schriftart. Z.B. Arial, denn die kann man verkleinern. MS Sans Serif hingegen streikt für kleine Werte.
Neue Seite:
Ich sehe gerade, dass dein Code nicht richtig funktionieren kann, da du die Ausgabeposition von i abhängig machst, und i wird bzw. kann nicht bei einer neuen Seite auf 0 zurückgesetzt werden, womit dein zu druckender Text außerhalb des Drucksbereichs liegt.
Probiere mal dieses
Code:
j := 420;
[b]for[/b] i := 0 [b]to[/b] Memo1.Lines.Count -1 [b]do begin
if[/b] j >= (PageHeight - 70) [b]then begin[/b]
Printer.NewPage;
j := 100;
[b]end[/b];
Printer.Canvas.TextOut(200, -j, Memo1.Lines[i]);
Inc(j, 45);
[b]end[/b];