Drucken über Canvas!

[Goldesel]

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