关于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;
此时是在预览状态,点击打印按钮,却不见选择打印机那个对话框,切换到桌面或其它程序，再切换回到预览状态，则可看见选择打印机那个对话框。请高手们帮忙解决！！！
问题点数：0、回复次数：7Top
1 楼jingchou（）回复于 2003-12-02 17:05:43 得分 0
怎么没高手帮我啊?Top
2 楼jingchou（）回复于 2003-12-03 21:00:10 得分 0
唉!高手都跑哪里去啦?Top
3 楼jingchou（）回复于 2003-12-05 10:02:50 得分 0
看来没人会解答这个问题了!Top
4 楼FSU（日日充电）回复于 2003-12-05 11:46:47 得分 0
......
fr.PrearedReport;
fr.ShowReport;
Top
5 楼gf109（good good study）回复于 2003-12-05 14:33:20 得分 0
我也是一样的问题啊，为什么啊，楼上的办法好象不好用啊，Top
6 楼jingchou（）回复于 2003-12-05 21:51:49 得分 0
是啊!上面的方法不行啊!Top
7 楼jingchou（）回复于 2003-12-08 16:40:01 得分 0
麻烦各位帮帮我啦!Top
