关于FASTREPORT动态制作报表预览后的打印问题

以下代码是制作FASTREPORT动态报表的:
var
   Page: TfrPage;BandMD: TfrBandView;NUM: TfrView;
   
procedure TfrmFRPrint.FormCreate(Sender: TObject);
begin  query1.Close;
  query1.ConnectionString:=strConn;
  query1.Prepared;
  query1.SQL.Clear;
  query1.SQL.Add('select * from pomx where pono='+''''+frmCashAcc.edit5.Text+'''');
  query1.Open;
  frDataSet1.DataSet:=Query1;
  
  fr.Pages.Clear;
  fr.Pages.Add;              
  Page := fr.Pages[0];  BandMD:= TfrBandView(frCreateObject(gtBand, ''));  
  BandMD.SetBounds(0, 424, 758, 24);
  BandMD.BandType := btMasterData;
  BandMD.Dataset := 'frDataSet1';
  BandMD.Prop['Stretched']:=True;
  Page.Objects.Add(BandMD);  Num:= frCreateObject(gtMemo, '');
  Num.SetBounds(416, 428, 103, 18);
  Num.Memo.Add('[query2."num"]');
  Page.Objects.Add(Num);  fr.ShowReport;
end;此时是在预览状态,点击打印按钮,却不见选择打印机那个对话框,切换到桌面或其它程序，再切换回到预览状态，则可看见选择打印机那个对话框。请高手们帮忙解决！！！