The Composite report component allows many reports to be combined into a single document.


This is done by using the components 'AddReports' event, during which the 'Reports.Add' method is called to add report to the list to be combined.

The code snippet below illustrates how this is done. A composite report component called 'comprep' is referred to, as are quickrep components on two forms, repfrm1 and repfrm2.

procedure MakeComp;
begin
    comprep := TQRCompositeReport.Create( mainfrm);
    comprep.OnAddReports := mainfrm.CompRepAddReports;
    comprep.Preview;
    comprep.free;
end;

procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
begin
    MakeComp;
end;

procedure Tmainfrm.CompRepAddReports(Sender: TObject);
begin
   comprep.Reports.Add( repfrm1.quickrep1 );
   comprep.Reports.Add( repfrm2.quickrep1 );
end;