Definir a quantidade de registros a ser impressa em uma página do QuickReport no Delphi

 

Ou seja, gostaria que, ao visualizar ou imprimir um relatório
do Quick Report, saia em cada página apenas um registro,
mesmo que o espaço permita mais de um.



Existem pelo menos duas formas de resolver este problema:

1. A forma mais simples consiste em alterar a altura (Height)
   da banda Detail do nosso relatório de modo que a altura
   total da página seja inferior a duas vezes a altura da banda.
   Desta forma, cada registro será impresso em uma nova página,
   teoricamente por falta de espaço na página atual.

2. Uma outra forma mais sofisticada é usar o evento AfterPrint
   da banda Detail. Nele testamos se ainda não chegou no fim 
   da tabela e, caso positivo, pedimos uma nova página:

   if not Table1.EOF then
     QuickRep1.NewPage;

Deve existir outras alternativas, mas as duas anteriores
funcionaram bem nos testes realizados.