Quickreport Detail auf eine Seite

[jangbu]

Hallo,

ich möchte einen Quickreport (2 Gruppierungen Header+Detail) so ausdrucken, dass der Detailbereich, also die zweite Gruppierung, nicht auf zwei Seiten aufgeteilt wird. Wenn also der neue Datensatz (Header+Detail) nicht auf eine Seite passen, dann NewPage erzwingen. Geht das?

jangbu

[omata]

Ja, das geht.

Im BeforePrint-Event kannst du über...

Delphi-Quellcode:

if Header.Height + Detail.Height + Footer.Height > Self.AvailableSpace then
  Self.NewPage;

eine neue Seite erzwingen.

[jangbu]

Super, Danke omota!

jangbu

[jangbu]

sorry omata,

liegt mglw. an meiner QR Version 3.0.9, die kennt AvailableSpace nicht!

[omata]

Ok, das wusste ich nicht, dass es AvailableSpace in früheren Versionen nicht gab.

Neuer Vorschlag...
Du kennst die Höhe der Seite, diese merkst du dir (BeforePrint-Event deines Reports) in einer unit-globalen (Private) Variable.
Dann ziehst du im BeforePrint-Event deiner Bänder die entsprechende Höhe selber ab, damit baust du dir dann dein AvailableSpace selbst.