Detail Quick Report - 5 Detail por folha

var
  Form1: TForm1;
  Detalhes: Integer; // Contador de detalhes

implementation

{$R *.dfm}

// Inicializar contador ao criar formulário
procedure TForm1.FormCreate(Sender: TObject);
begin
  Detalhes := 0;
end;

// Verificar contador após impressão do detalhe
procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  if Detalhes >= 5 then
  begin
    DetailBand1.ForceNewPage := true; // Saltar página
    Detalhes := 0;                    // Reiniciar contador
  end else
    DetailBand1.ForceNewPage := false;
end;

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  Inc(Detalhes); // Incrementar contador de detalhes
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.PreviewModal;
end;