(La speranza di I di avere di destra ha capito il Q.)
In un rapporto di miei controllo prima per vedere se c'è lo spazio disponibile per stampare la colonna e se è più di meno di quanto la forza richiesta di I un newpage.
Qualcosa di simile
procedura TForm1.ColumnHeaderBeforePrint (mittente: TQRCustomBand; varietà PrintBand: Booleano);
varietà
Necessario: esteso;
cominciare
DetailBand.ExpandedHeight (stato necessario); //get l'altezza richiesta dal detailband
Necessario: = Needed+Sender.Height; //add l'altezza del columnheader
se necessario > QuickRep1.availablespace allora
//There è più spazio in questa pagina? Stampiamo ad una nuova pagina
QuickRep1.newpage;
estremità;