[Help] Un CompositeReport Fino.

[[egostar]]

En la ayuda de QReport viene este código.

Código Delphi [-]
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;

Nada que ver con tu código.

Salud OS.