QReport合拢报表

QReport合并报表
QRCompositeReport1:TQRCompositeReport;
   qrp:TQuickRep;
   x:Pointer
QRCompositeReport1.Prepare;
x:=QRCompositeReport1.Reports.List[0];
qrp:=x;
qrp.QRPrinter.Save(strFile+'.QRP');