Drucken

[jbg]

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];