Canvas Drucken

[LoL]

moin

Ich schreibe gerade ein Programm das Matheaufgaben mit den Grundrechenarten ausspucken soll. Aufgabeerstellung klappt 1A. nun will ich die Aufgabe 4 Spaltig drucken. Zu diesem Zweck will ich mit Canvas auf den "Drucker malen". Hab zu Testzwecken das mal auf mein Form gemalt sonst wären ja 1000 Seiten draufgegangen . Auf meiner Form funktioniert das Einwandfrei und schaut optimal aus. Wenn ich aber nun genau das gleiche auf den Drucker male druckt der irgendwie nur sch**** aus.(Links oben auf dem Blatt ein paar Zahlen übereinander geschrieben). Woran kann das liegen?
hab das mal zur übersichtlichkeit etwas vereinfacht: Die ganzen Aufgaben stehen in der Listbos "l".

Delphi-Quellcode:

cnt := 0;
While ( i < 800 ) Do
  Begin
    if cnt <= l.Count - 1 then//Wenn der Counter nicht die ListbosItems übersteigt
      begin
        Canvas.TextOut(0,i,l.Items.Strings[cnt]);//Bzw. Printer.Canvas
        Inc(cnt);
        Inc(i, 15);//Nur zum Ausrichten
      end
    else
      break;
  End;