Office中国论坛/Access中国论坛

标题: 分享:报表最后页如不足一页加满空行 [打印本页]

作者: sgrshh29    时间: 2010-9-25 11:27
标题: 分享:报表最后页如不足一页加满空行
这个实例可以在报表预览状态下,重新设置报表的 边距、纵横向,即使报表只有一页也可以加满空行。
用了rpt.PrtDevMode来获取报表纸张尺寸。
优点是代码还是比较简单的,也容易看懂。
缺陷是报表页眉和报表页脚高度必须为0。

[attach]43582[/attach]


作者: xuwenning    时间: 2010-9-25 13:13
谢谢分享
学习学习
作者: t小宝    时间: 2010-9-25 13:41
下载测试了,实例中的报表确实可以补空行,并且在只有一页时也可以加满空行,也可以调整纸张方向、边距,但却不能调整纸张大小,实例报表纸张固定为Letter(无论如何也改不了,不知你是怎么固定到那张报表的?)。
另,我在例子中新建一个相同的报表使用相同的代码,却不能补空行!?

作者: tmtony    时间: 2010-9-25 13:58
先来看看,谢谢分享
作者: asklove    时间: 2010-9-25 14:57
收藏
作者: ZHENGLIAN    时间: 2010-9-25 18:18
快乐分享、享受生活、永远支持!!!
作者: hjb016    时间: 2010-9-26 07:23
先收藏了,谢谢分享!
作者: sgrshh29    时间: 2010-9-27 15:24
下载测试了,实例中的报表确实可以补空行,并且在只有一页时也可以加满空行,也可以调整纸张方向、边距,但 ...
t小宝 发表于 2010-9-25 13:41

正如 红尘如烟 所指出的 PrtDevMode 只能获取自定义和打印机默认的纸张尺寸,不能获得打印机纸张列表的尺寸。因此猜想,最好的办法是把打印机纸张列表尺寸做成数据表。这样,可以先判断是否自定义纸张,如是则用 PrtDevMode 获取尺寸,如不是则从表中查找尺寸。但是比较麻烦的是要做一个自定义的工具栏按钮和一个设置打印参数的窗体。
如果有报表页眉和报表页脚,可以在第一页和最后一页分别减去这二个的高度,或者干脆每一页都减去这二个的高度,以保持所有表格的高度一致。

作者: fnsmydyang    时间: 2010-9-28 22:42
学习下下。。。。,谢谢
作者: ElfK    时间: 2010-10-20 11:00
谢谢分享
学习学习
作者: 飘摇王    时间: 2017-7-23 16:33
感谢分享 学习学习




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3