Drucken

[CalganX]

Nochmal zu dem "neue Seite": Die Zeile lautet derzeit:

Code:

  j := [color=#0055FF]420[/color];
  [b]for[/b] i:=[color=#0055FF]0[/color] [b]to[/b] Memo1.Lines.Count -[color=#0055FF]1[/color] [b]do[/b] [b]begin[/b]
    [b]if[/b] i*(Printer.Canvas.TextHeight(Memo1.Lines[ i ])) >= (PageHeight - [color=#0055FF]70[/color]) [b]then[/b] [b]begin[/b]
      Printer.NewPage;
      j := [color=#0055FF]100[/color];
    [b]end[/b];
    Printer.Canvas.TextOut([color=#0055FF]200[/color], -(j + (i*[color=#0055FF]45[/color])), Memo1.Lines[ i ]);
  [b]end[/b];

Trotzdem druckt er die zweite Seite nicht...

Hat jemand Abhilfe?

Chris