Quickreport (Passsen die Band noch auf die Seite... ?)

[Kedariodakon]

Ich suche gerade nach einer Seite für folgendes Problem:
Ich habe ein TQRGroup - Band + Child, nun möchte ich gern überprüfen, ob das Erste, + das Child (falls es gedruckt) wird, + min. ein Datenband noch auf die Seite passen, falls nicht soll eine neue Seite begonnen werden.

mit NewPage bekomme ich eine neue Seite, aber eine Möglichkeit der Abfrage ob die Bands noch auf die Seite passen, kann ich nicht finden...


Kann mir da irgendwer einen Tip in Richtung Lösung geben? óò

Bye

[Sourcemaker]

Um Bänder zusammenhängend zu drucken gibt es die Option Linkband.
(Hängt unter Umständen davon ab welche Quickreport-Version du einsetzt)

Grüße

Frank

[Kedariodakon]

Man Man da war die lösung einfacher als ich dachte und natürlich hab ich sie übersehen óò

Danke für den Tip :zwinker:


Bye

[Kedariodakon]

Ok das hat zwar geholfen aber kann man das doch irgendwie abfragen?
bzw. Ob ein Band noch auf die Seite passt?

Grund -> Seitenumbruchprob...

Bye

[Kedariodakon]

Ok habes ähnlich Qickreport gemacht...

Delphi-Quellcode:

Function   GetStretchHeight( Const From: TQRCustomBand ): Extended;
Begin
  Result := From.Height + From.Size.Length;
  If Assigned( From.LinkBand ) Then Result := Result + GetStretchHeight( From.LinkBand );
End;

Habe es dann so ähnlich ausgeführt: If TQuickRep.AvailableSpace < GetStretchHeight( "Band" ) Then TQuickRep.NewPage;

Bye