(La esperanza de I de tener derecho entendía el Q.)
En un informe los míos compruebo para saber si hay el espacio disponible antes para imprimir la columna y si es menos que fuerza requerida de I un newpage.
Algo similar
procedimiento TForm1.ColumnHeaderBeforePrint (remitente: TQRCustomBand; var PrintBand: Boleano);
var
Necesario: extendido;
comenzar
DetailBand.ExpandedHeight (necesario); //get la altura requerida por el detailband
Necesario: = Needed+Sender.Height; //add la altura del columnheader
si es necesario > QuickRep1.availablespace entonces
¿//There no es no más de espacio en esta página? Imprimamos en una nueva página
QuickRep1.newpage;
extremo;