Impresión facturas Master-Detail

[[Lepe]]

Vamos, algo como esto:

Código Delphi [-]
type
  Tver = (vTotales, vSumaYSigue);

procedure TFrmQRFactura.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if detalle.RecordCount = 0 then
    Ver(vTotales)
  else
  if (qrfact.PageNumber * 23 div detalle.RecordCount) > 0 then
    Ver(vTotales)
  else
    Ver(vSumaYSigue);

end;

procedure tfrmqrfactura.Ver(queVer: TVer);
begin
  lblSumaYSigue.Enabled := (queVer = vSumaYSigue);
  dbtSumaYSigue.Enabled := (queVer = vSumaYSigue);
  lblSUMA.Enabled       := (queVer = vtotales);
  DBTBimponible.Enabled := (queVer = vtotales);
  lblIVA.Enabled        := (queVer = vtotales);
  DBTiva.Enabled        := (queVer = vtotales);
  dbtIvaPercent.Enabled := (queVer = vtotales);
  lbltotal.Enabled      := (queVer = vtotales);
  DBTimporte.Enabled    := (queVer = vtotales);

end;

lbl = labels con el texto 'suma y sigue' o solo 'suma'
DB = qrdbtext.

Un saludo