Sumar totales en QReport

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
nParcial:=0;
Application.ProcessMessages;
Quickrep1.PreviewModal;
end;

procedure TForm1.QRDBText2Print(sender: TObject; var Value: String);
begin
nParcial:=nParcial + Table1Total.Value;
end;

procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
qrlabel1.caption:=FormatFloat(',0.00',nParcial);
end;

Creas una variable accesible, desde la unidad nParcial, una banda cabecera, detalle y pie de página, en la banda detalle aprovechamos el evento de cualquiera de los campos para ir dando valores a nParcial, en el evento "BeforePrint", del pie le vamos pasando los valores acumulados a una etiqueta tipo "QrLabel", que previamente hemos creado en dicha sección.