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?