我想用自己的打印预览代替delphi自带的预览窗
做法是:在自己做的替代单元中放入一个Tqrpreview控件;
在Tquickrep的onpreview事件里添加代码
frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
frm_preview.show; 现在的问题是自做的Frm_preview预览时;窗体下并没有发现报表窗体中的内容;
做法是:在自己做的替代单元中放入一个Tqrpreview控件;
在Tquickrep的onpreview事件里添加代码
frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
frm_preview.show; 现在的问题是自做的Frm_preview预览时;窗体下并没有发现报表窗体中的内容;
解决方案 »
- 我在学习NET学习,问一个关于Delphi语言问题
- 关于delphi开发SOAP/web service的应用
- FastReport如何实现下面的功能?
- ShellExecute如何使用管理员身份执行。
- 在delphi中如何调用存储过程返回的数据
- 我要实现效果有点类于做单项选择题,只不过对每题选择结果均要及时反馈。
- midas 事务
- MDI子窗口resize事件出错,请进来。
- 请问我没学过pascal可以学习delphi吗
- 请问adoquery和query有什么不同,没分了。谢谢
- 求助:如何象网络蚂蚁那样在菜单下拉条中利用ini文件实现多语言?急用!拜托了!
- 如何在ListView中加入Items中加入字体子属性!!!给分!!!!
quickrep1.qrprinter:=frm_preview.qrpreview1.qrprinter;
frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
frm_preview.show;
用原来的delphi自带的控件就可以;郁闷;大侠们还有什么办法没?不是非要将报表控件还原才可以吧;
frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
frm_preview.show;
在按钮中写以下一句,调用自定义预览窗口
quickrep1.Previewmodal //关键依据分析:
在调用Previewmodal时,系统调用TCustomQuickRep的PreviewIt(true)方法,他和调用Preview方法不同在于TQRPrinter.Preview和TQRPrinter.Previewmodal的不同,一个是显示公共界面,一个是显示自身。 with GlobalPreviewInterface.Create(nil) do
try
ShowModal(Self)
finally
Free;
end;
TO PaPaCong(小勇) 有空另谢;
^_^;搞定;