盒子论坛 v2.1

以下代码是制作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 pon_o='+''+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;

此时是在预览状态,点击打印按钮,却不见选择打印机那个对话框,切换到桌面或其它程序，再切换回到预览状态，则可看见选择打印机那个对话框。请高手们帮忙解决！！！

----------------------------------------------
-

信息

登陆以后才能回复