Hallo,
ich nutze Quickreport zur Erstellung einer Rechnung.
Ich möchte aber sicher stellen, dass der Rechnungsabschluss, sprich das SummenBand (Gesamtsumme, Rabatt, UST, Rechnungssumme) nicht alleine auf einer Seite steht, sondern mindestens noch 3 Artikel mit gedruckt werden.

Problem tritt auf, wenn aufgrund der Einzelpositionen die Gesamtrechnung über mehr als eine Seite gedruckt wird.

Wie kann ich feststellen, an welcher Zeilenposition ich mich im Rechnungsdruck befinde um über qr.Newpage eine neue Seite zu veranlassen ?
In welchem Ereignis muss ich die Prüfung durchführen und Newpage veranlassen ?



Habe es selber gelöst:

markieren

Delphi-Quellcode:

 if (((zqry_W.RecordCount - zqry_W.RecNo) < 5)) then
     IF qckrp1_Re.AvailableSpace < 300 then
       qckrp1_Re.newpage;

Mindestens 2 der 3 Klammern sind überflüssig. Ansonsten: Top

Zitat von Dejan Vu:

Mindestens 2 der 3 Klammern sind überflüssig. Ansonsten: Top

Alles Geschmackssache.

Ich hätte auch 3 Klammernpaare, allerdings anderst verteilt, wenn die 2 if's notwendig wären:

markieren

Delphi-Quellcode:

 if ((zqry_W.RecordCount - zqry_W.RecNo) < 5) then
  begin
   if (qckrp1_Re.AvailableSpace < 300) then
    begin
     qckrp1_Re.newpage;
    end;
   end;

Mit einer if-Abrage hätte ich sogar 4:

markieren

Delphi-Quellcode:

 if (((zqry_W.RecordCount - zqry_W.RecNo) < 5) and (qckrp1_Re.AvailableSpace < 300)) then
  begin
   qckrp1_Re.newpage;
  end;