Quickreport - Wie Summary je Seite als Zwischensumme?

[BrunoT]

Hi PASST,

Sourcemaker hat Recht. Das geht nur manuell.
Füge im Seitenfuss und im Berichtsfuss ein paar QRLabel ein

Delphi-Quellcode:

implementation

{$R *.dfm}

var
  seite, zNr: Integer;
  Summe, Gesamt: double;

procedure TForm2.QRBeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  seite := 0;
  Gesamt := 0;
end;

procedure TForm2.PageHeaderBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inc(seite);
  zNr := 0;
  summe := 0;
end;

procedure TForm2.PageFooterBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  QRSumme.Caption := Format['%8.2f', [summe]);
  QRSeite.Caption := '- ' + IntToStr(Seite) + ' -';
end;

procedure TForm2.DetailBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin

  Summe := Summe + Table['Wert'];
  Gesamt := Gesamt + Table['Wert'];
  inc(zNr);
  QRzNr.Caption := Format['%.3d', [zNr]);
end;

procedure TForm2.SummaryBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  QRGesamt.Caption := Format['%8.2f', [Gesamt]);
end;

mfg

BrunoT