Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Quickreport 3.5 und Seitenzahl im fertigen Report... Hilfe ! (https://www.delphipraxis.net/28495-quickreport-3-5-und-seitenzahl-im-fertigen-report-hilfe.html)

Killerloop 25. Aug 2004 13:38


Quickreport 3.5 und Seitenzahl im fertigen Report... Hilfe !
 
Hallo !

Zur laufzeit wird aus einer ADOQuery ein QuickReport 3.5 erstellt. Der kann manchmal 2 datensätze beinhalten, manchmal 300 und über viele Seiten gehen. Gibt es eine Köglichkteit das der in der Fusszeile (footer) die Seitanzahl angezeigt wird ? In etwa wie "Seite 1/6" oder ähnlich ?

Danke schonmal.

mikhal 25. Aug 2004 14:07

Re: Quickreport 3.5 und Seitenzahl im fertigen Report... Hil
 
In die Footer-Band ein QRSysData platzieren, die Eigenschaft Data auf qrsPageNumber setzen und eventuell in der Eigenschaft Text das Wort "Seite " (das Leerzeichen ist Absicht!), damit kannst du dir zumindest die laufende Seitennummer andrucken lassen.

Grüße
Mikhal

mischerr 25. Aug 2004 17:49

Re: Quickreport 3.5 und Seitenzahl im fertigen Report... Hil
 
Wie man "Seite x" realisiert ist ja bereits gesagt worden. Allerdings steht die Anzahl der Gesamtseiten so einfach nicht zur Verfügung. Ich hab das mal gemacht, war jedoch eine heiden Arbeit, denn dazu musste ich die Anzahl der Seiten von Hand berechnen - anhand des Platzbedarfs der einzelnen Bands... :(

grayfox 25. Aug 2004 21:38

Re: Quickreport 3.5 und Seitenzahl im fertigen Report... Hil
 
hallo killerloop!

du brauchst lediglich mit der methode QuickRep.Prepare einen report erzeugen, der weder ausdruckt noch angezeigt wird. danach kannst du aus der variablen QuickRep.Pages die gesamtseitenanzahl auslesen. so einfach geht das ;)

mfg, stefan


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:56 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