[DELPHI] Salto pagina al cambiamento del valore di un record con QuickReport

[morfeusflash]

Ho risolto da solo:

imposto una variabile pubblica sDoc : String;

e poi uso questo metodo:

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
sDoc := self.QuickRep1.DataSet.Fields[2].AsString;
end;

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if sDoc <> self.QuickRep1.DataSet.Fields[2].AsString then
self.DetailBand1.ForceNewPage := True else
self.DetailBand1.ForceNewPage := False;

end;