Achso ... tut mir leid. Das muss ich überlesen haben. Natürlich ... jetzt hab ichs auch hinbekommen:
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>
<vertikale Druckposition erhöhen>
if "Position > 6000"
then
begin
printer.NewPage;
<Position auf 200 setzen>
end;
end;
until "letzter Datensatz erreicht";
printer.EndDoc;
So siehts bei mir jetzt aus und es funktioniert sogar. Aber ich denke trotzdem, dass ich
auf QuickReport umsteigen werde, da es meiner Meinug nach komfortabler zu nutzen ist und mehr Möglichkeiten bietet. Zumal dies das erste Mal war, dass ich mich mit Printer.Canvas beschäftigt habe.
Weiß vielleicht noch jemand wie ich dem Dokument einen Dokumentname zuordnen kann, welcher auch in der Durckerwarteschlange angezeigt wird?
Vielen Dank
Jannik