(L'espoir d'I d'avoir droit a compris le Q.)
Dans un rapport du mien je vérifie l'espace disponible avant pour imprimer la colonne et si c'est moins que la force exigée d'I un newpage.
N'importe quoi de pareil
procédé TForm1.ColumnHeaderBeforePrint (expéditeur : TQRCustomBand ; variété PrintBand : Booléen) ;
variété
Nécessaire : prolongé ;
commencer
DetailBand.ExpandedHeight (requis) ; //get la taille requise par le detailband
Nécessaire : = Needed+Sender.Height ; //add la taille de columnheader
si nécessaire > QuickRep1.availablespace alors
//There n'est plus d'espace en cette page ? Imprimons sur une nouvelle page
QuickRep1.newpage ;
extrémité ;