Drucken über Canvas!

[Goldesel]

Mmmmhhh ... hab das Code-Design jetzt geändert und ein paar Sachen ausprobiert aber den Fehler finde ich immer noch nicht!

[Mackhack]

Poste halt nochmal dein neudesignes Code-Stueck!

[Goldesel]

So, sollte ich Fehler in der Formatierung gemacht haben, BITTE UNBEDINGT drauf aufmerksam machen. Hab bisher sehr selten meinen Code formatiert!

[Mackhack]

Zitat:

Zitat von Goldesel

So, sollte ich Fehler in der Formatierung gemacht haben, BITTE UNBEDINGT drauf aufmerksam machen. Hab bisher sehr selten meinen Code formatiert!

Dann wird es aber hoechste Zeit sich mal den StyleGuide von Borland anzusehen und den auch anzuwenden. Wie einer meiner Vorredner schon sagte kann man damit auch Fehler vorbeugen!

Ausserdem,... Nutz doch dafuer die QuickReport oder FastReport-Kompo. Dann hast sogar ne Vorschau! Warum das Rad neu erfinden?

[Goldesel]

@ mackhack

Wo finde ich die QuickReports von Delphi? Irgendwie scheine ich die nicht unter meinen Komponenten zu haben ...

[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?

[Goldesel]

Eine Frage zu deinem Code. Meinst du mit <Druckpositiojn initialisieren> dasselbe wie lines:=900; ?

Solltest du damit das oben genannte meinen, muss ich dich leider enttäuschen. Dies funktioniert auch nicht. Es wird nach wie vor nur der letzte Datensatz gedruckt (und der header). Aber ich werde heute wahrscheinlich auf QuickReport umsteigen.

[Hawkeye219]

Zitat:

Zitat von Goldesel

Dies funktioniert auch nicht. Es wird nach wie vor nur der letzte Datensatz gedruckt (und der header).

Ich habe lediglich deinen Code als Pseudo-Code formuliert, weil ich dir damit die Fehlersuche etwas erleichtern wollte.

Gruß Hawkeye

[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

[mkinzler]

Borland liefert seit Version 6 zusätzlich Rave Reports mit. Ab Version 2005 ausschließlich!(Win32)