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,可以打印时选择打印机。