征求不固定行数的报表补空行方法

t小宝

红尘如烟今天发了一个很好的报表补空行的例子，但是是固定每页的行数的，包括以前论坛的一些补空行例子也是固定行数的，这就有一个问题，不能调整页面大小了，因为如果调小了就装不下那么多行，出现混乱。

因此就想能否不固定每页的行数，而是只要最后一页的记录不满页，就用空行把页面补满，并且在调整页面设置后能自动增减空行数量，保持最后一页完整。

这个功能我研究过，但发现难度太大，中途而废。只有期待高人出手了。

todaynew

有点裸捐的味道

t小宝

响应老汉的号召，以钱多为耻，以后通过的提问的方式把钱捐完（也就是裸）。
但我还搞不清楚，这个赏金是从个人账户扣还是公款消费。

红尘如烟

我以前发过一个例子，也是画出表格的，用的方法比较笨，但和小宝的这个要求有点像，我当时的做法是根据第一页的记录数来确定每页能显示多少条记录，但这个方法也有一个问题，数据如果不足一页时没有办法实现补空行了，感觉Access对于每页格式固定的报表（如各种单据）处理起来比较功能较弱

红尘如烟

把我做的那个例子改了一下，现在可以不指定每页显示的行数了，但用的还是读取第一页的记录行数为标准，仍然没有实现“数据不足一页时也能补空行”的功能
http://www.office-cn.net/forum.php?mod=viewthread&tid=93201&page=1&extra=#pid563116

t小宝

除"数据不足一页时也能补空行"外还有2个问题，
1、当有报表页眉时，第1页记录数与后页的记录数是不一样的，那么读取第一页的记录行就不行，如果还有报表页脚，会更复杂。
2、应允许预览时调整页面设置，如预览时把页面从纵向改为横向，如何动态调整空行数量，而不是关闭预览重新打开。

xinbao

看高手论坛, 借机捡些食碎

todaynew

除"数据不足一页时也能补空行"外还有2个问题，
1、当有报表页眉时，第1页记录数与后页的记录数是不一样的， ...
t小宝 发表于 2010-9-18 19:46

问题的核心只是获得不同纸型的高度吧？得到了这个高度，便能算出主节部分允许的高度，知道主节允许的高度，便也就能算出需要补的空行数。

t小宝

回复 todaynew 的帖子

脑子转得真快！纸张大小，还有页边距等。。。
   

红尘如烟

我试过用读取报表的PrtDevMode属性代表的DEVMODE结构中的intPaperLength属性，不成功，这个看样子好像只有使用自定义纸张时才有效
剩下的办法就是：把所有预定义的纸张高度写在判断代码中，然后根据rpt.Printer.PaperSize属性及rpt.Printer.Orientation来取得纸张高度，根据rpt.Printer.TopMargin 及 rpt.Printer.BottomMargin 来得到上下页边距，不过这个就比较麻烦一些了，光是根据预定义纸张大小来得到纸张高度的代码量就不小