(Jag hoppas för att ha rätten som förstås Q.et),
I en rapport av min jag kontrollerar för det tillgängliga utrymmet för för att skriva ut kolonnen och om den är mindre än, krävt mig tvingar en newpage.
Något gillar detta
tillvägagångssätt TForm1.ColumnHeaderBeforePrint (avsändare: TQRCustomBand; var PrintBand: Boolean);
var
Nödvändigt: fördjupat;
börja
(Behövd) DetailBand.ExpandedHeight; //get höjden som krävs av detailbanden
Nödvändigt: = Needed+Sender.Height; //add columnheaderhöjden
om nödvändigt > QuickRep1.availablespace därefter
//There är inget mer utrymme i denna sida? Låt oss skriva ut på en ny sida
QuickRep1.newpage;
avsluta;