[求助]急！！关于报表中按固定记录数分页及不足行数用空行补足的问题

红尘如烟

需要的报表效果如下图所示：



需要达到的要求：

    1  纸张大小为21X14CM

    2  每页显示记录数为9条

    3  若不足9条记录则用空行补足

    主要的麻烦在于其中有个总计和备注栏，要求每页都需要显示，但只在最后一页中显示数据

    大概意思相当于在一张固定报表中填入数据

    我对报表没啥研究，实在搞不定，请各位大虾帮帮忙，感谢！！！

[em02][em02][em02][em02]

[此贴子已经被作者于2007-6-17 17:52:15编辑过]

tz-chf

自定义一种纸张，用line划线，调整页边距和页面页眉、页面页脚等使主体能显示9条记录。

在报表页眉设一个不可见的文本框得到总计，在页面页脚引用这个文本框。大写的函数论坛上有。

private sub report_page()
report.scalemode=7  '厘米，容易计算

'最好用变量，方便调整

'竖线
line (2,3)-(2,5)
line ....

’横线可用for循环

for....

line...

next
end sub

套打的话多调整几次。

[此贴子已经被作者于2007-6-17 22:30:40编辑过]

sgrshh29

以下是引用红尘如烟在2007-6-17 17:38:00的发言：


    2  每页显示记录数为9条

    3  若不足9条记录则用空行补足

    主要的麻烦在于其中有个总计和备注栏，要求每页都需要显示

问题就难在“主要的麻烦在于其中有个总计和备注栏，要求每页都需要显示”，通常页眉可以重复，而页脚不能重复。可以在页面页眉用线条控件画出需要的格子。将记录的标签放在自定义的分组页面，记录放在主体。用分页符来决定行数。用页面页眉的movelayout来移动自定义分组，达到这个目的。代码虽然简单，但是做起来比较烦。

红尘如烟

我晕死，只想着怎么才能用代码去实现，却忘记了通过调整控件大小来达到限制其显示记录数这种最简单的办法！已经搞定，在此多谢楼上的两位兄弟的提示！[em07][em07][em07]

把文件发上来，有用得着的做个参考，大家不要再犯我这种低级错误了，晕菜，真是丢脸啊[em06][em06][em06]

注：这个需要先自定义一个宽21CMX高14CM的纸张大小，否则会有问题

[此贴子已经被作者于2007-6-24 20:18:31编辑过]

sgrshh29

你这个例子好像与你楼顶的要求不符，下面页脚的内容没有紧跟上面主体，中间空开一大截，还是A4的页面。按楼顶的意思应该是所有的内容都是紧挨着的。好像应该是这样的效果.

[此贴子已经被作者于2007-6-19 7:06:44编辑过]

红尘如烟

楼上的兄弟说的是个问题，我是在报表的“页面设置”里直接设置的，但换台电脑设置就变了，我这里用的是自定义纸张，到你那里就成了A4纸了，我把4楼的mdb文件改了下，但是由于ACCESS2000及之前的版本里好像没有Printer对象，也不知道是不是管用

小宜

学习学习学习学习学习学习学习学习

simq

好好学习好好学习好好学习好好学习

earyxu

学习学习学习学习学习学习学习学习

sznoside

yyyy