分享：报表最后页如不足一页加满空行

sgrshh29 · 发表于 2010-9-25 11:27:49

这个实例可以在报表预览状态下，重新设置报表的边距、纵横向，即使报表只有一页也可以加满空行。
用了rpt.PrtDevMode来获取报表纸张尺寸。
优点是代码还是比较简单的，也容易看懂。
缺陷是报表页眉和报表页脚高度必须为0。

xuwenning · 发表于 2010-9-25 13:13:21

谢谢分享
学习学习

t小宝 · 发表于 2010-9-25 13:41:37

下载测试了，实例中的报表确实可以补空行，并且在只有一页时也可以加满空行，也可以调整纸张方向、边距，但却不能调整纸张大小，实例报表纸张固定为Letter(无论如何也改不了，不知你是怎么固定到那张报表的？)。
另，我在例子中新建一个相同的报表使用相同的代码，却不能补空行！？

tmtony · 发表于 2010-9-25 13:58:21

先来看看,谢谢分享

asklove · 发表于 2010-9-25 14:57:51

ZHENGLIAN · 发表于 2010-9-25 18:18:41

快乐分享、享受生活、永远支持！！！

hjb016 · 发表于 2010-9-26 07:23:09

先收藏了,谢谢分享!

sgrshh29 · 发表于 2010-9-27 15:24:11

下载测试了，实例中的报表确实可以补空行，并且在只有一页时也可以加满空行，也可以调整纸张方向、边距，但 ...
t小宝发表于 2010-9-25 13:41

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

fnsmydyang · 发表于 2010-9-28 22:42:22

学习下下。。。。，谢谢

ElfK · 发表于 2010-10-20 11:00:11

谢谢分享
学习学习

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[报表] 分享：报表最后页如不足一页加满空行

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)