Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Quickreport, Seitenumbruch selber einfügen (https://www.delphipraxis.net/185952-quickreport-seitenumbruch-selber-einfuegen.html)

waldforest 21. Jul 2015 16:33


Quickreport, Seitenumbruch selber einfügen
 
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:

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

Dejan Vu 22. Jul 2015 08:29

AW: Quickreport, Seitenumbruch selber einfügen
 
Mindestens 2 der 3 Klammern sind überflüssig. Ansonsten: Top

BadenPower 22. Jul 2015 08:42

AW: Quickreport, Seitenumbruch selber einfügen
 
Zitat:

Zitat von Dejan Vu (Beitrag 1309451)
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:

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:

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz