(A esperança de I ter direito compreendeu o Q.)
Em um relatório de meus eu verific para ver se há o espaço disponível antes para imprimir a coluna e se é menos do que a força exigida de I um newpage.
Qualquer outra coisa semelhante
procedimento TForm1.ColumnHeaderBeforePrint (remetente: TQRCustomBand; var PrintBand: Bôoleano);
var
Necessário: prolongado;
começar
DetailBand.ExpandedHeight (necessário); //get a altura exigida pelo detailband
Necessário: = Needed+Sender.Height; //add a altura do columnheader
se necessário > QuickRep1.availablespace então
//There não é não mais espaço nesta página? Deixar-nos imprimir em uma página nova
QuickRep1.newpage;
extremidade;