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