////////////////////////////////////////////////////////////////////////
frUserDataset1.RangeEndCount := dmmzfycx.qry_for_Mc.FieldCount-1;
frUserDataset2.RangeEndCount := dmmzfycx.qry_for_mc.FieldCount-1;
WPath := ExtractFilePath(ParamStr(0));
frReport1.Clear;
frReport1.dataset := nil;
if pagesetupdialog1.Execute then
frReport1.LoadFromFile(WPath +'mc_费用明细表.frf');
frReport1.PrepareReport;
//frReport1.PrintPreparedReport('',1,True,frall);
frReport1.ShowPreparedReport;
// frreport1.PrintPreparedReportDlg;
////////////////////////////////////////////////////////////////////////
1.调用pagesetupdialog,可以调用系统页面设置，更改纸张。
2.PrintPreparedReportDlg,可以打印时选择打印机。
本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/884618 ，如需转载请自行联系原作者
