Me imagino que para calcular el Subtotal usas un TQRExpr.
Y que tal si colocas un TQRLabel y haces el calculo del total de manera manual (por eventos):
1. Creas una variable a nivel del reporte
2. Inicializas a cero la variable cada vez que se imprime la cabecera del Grupo:
Código Delphi
[-]procedure TqrExtracto.QRGroup1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
fTotal := 0;
end;
3. Vas acumulando el valor deseado en la variable por cada linea de detalle impresa
Código Delphi
[-]procedure TqrExtracto.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
fTotal := fTotal + TuTabla.TuCampo;
end;
4. En el evento OnBeforePrint del Pie de Pagina muestras el total acumulado
Código Delphi
[-]procedure TqrExtracto.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
qrlabel1.Caption := FormatFloat(',0.00',fTotal);
end;
5. Como decimos por aca, listo el Pollo.
Espero que sirva.
Saludos.