急,关于QuickRep:如何让QuickRep的preview随着Printer的设置而更新?(在线等候!)

GeoffreyLu 2004-04-08 01:53:58
这可能是个很菜的问题,因为我以前没有写过打印的代码。
我在调用Quickrep1.preview后,预览的界面就出来了。可是如果点击Printsetup,进行纸张或者打印方向等设置,点击确定后,preview却没有更新。我不知道在哪个事件里面写更新的代码,如quickrep1.refresh或者quickrep1.update???
我用的是Quickrep 4.0,当然以前用的是3.0.9,delphi6自带的,因为自带的解决不了问题,才升级为Professional,结果还是没有结果。
...全文
49 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
GeoffreyLu 2004-04-08
  • 打赏
  • 举报
回复
这就是说不配和QRpriew是无法解决这个问题的罗?
我也尝试过使用QRpreview来进行预览,并且在Quickrep的OnPreview事件中,写过QRPreview.qrprinter := QuickRep.qrprinter;当时Quickrep所在的窗体就没出现,
连Quickrep的预览界面和QRPreview的界面都没出来,不知道怎么回事,就没有继续尝试下去,楼上的有什么建议吗?谢谢。

zhangheaaa 2004-04-08
  • 打赏
  • 举报
回复
quickrep的preview上的设置可能有些小问题,
建议:用QuickRep和QRPreview组件实现报表的自定义预览
转贴:
自定义几个按钮,配合qrpreview就可以做出自己的预览界面:

扩展高度:qrpreview1.ZoomToFit ;
扩展宽度:qrpreview1.ZoomToWidth ;
实际大小:qrpreview1.Zoom := 100;
关闭报表:qrpreview1.Visible := false ;
第一页:qrpreview1.PageNumber := 1;
上一页:
if pageid > 1 then
begin
pageid := pageid - 1;
qrpreview1.PageNumber := pageid;
end;
下一页:
if pageid < pcount then
begin
pageid := pageid + 1;
qrpreview1.PageNumber := pageid;
end;
最后一页:
qrpreview1.PageNumber := qrpreview1.QRPrinter .PageCount

实现QuickRep和QRPreview的关联用:
QRPreview.qrprinter := QuickRep.qrprinter;

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧