Drucken über Canvas!

[Hawkeye219]

Ok Jannik, der Code ist nun schon etwas lesbarer geworden. Wenn du diesen Thread liest, wirst du sehen, daß es sehr viele unterschiedliche Meinungen zum Thema "Formatierung von Quelltexten" gibt. Letztlich orientieren sich die meisten doch mehr oder weniger an den unverbindlichen Vorgaben von Borland. In diesen Vorgaben findest du noch viele Hinweise, wie du die Lesbarkeit deines Codes weiter verbessern kannst.

Nun zum Fehler. Hier die grobe Struktur deines Codes als Pseudo-Code:

Delphi-Quellcode:

<Druckposition initialisieren>
table.First;
printer.BeginDoc;
<Überschrift drucken>

repeat
  
  while not table.Eof do
    begin
      <aktuellen Datensatz lesen>
      table.Next;
      <Datensatz an aktueller Position drucken>
    end;

until "letzter Datensatz erreicht";
  
printer.EndDoc;
  
<vertikale Druckposition erhöhen>
if "Position > 6000" then
  begin
    printer.NewPage;
    <Position auf 200 setzen>
  end;

Kann das funktionieren?