DataReport分组打印问题

[yangxie5201314]

英雄们呐，小弟跪求打印解决办法:
我目的是要打印单据，A5纸张的那种，现在有未知行数的MSHFlexGrid表格往单据里面填充,打印机只有A4，所以页脚的数据还在最底下，中间空出来了好大一块，有没有办法使用分组打印，让每次只打印固定行数，如5行，然后就分页,还有就是我用的是动态RecordSet,帮帮忙啊

[Fanks]

不知道你在不够5行的时候怎么显示，显示空行补足？那么你最好在获取RecordSet时就进行处理，使记录数是5的整倍数就可以了，DataReport中你可以通过调整页头、页脚高度以及细节栏高度来控制，使细节部分只能显示5条记录（通过报表预览查看）。

[yangxie5201314]

[Quote=引用 1 楼 fanks 的回复:]

不知道你在不够5行的时候怎么显示，显示空行补足？那么你最好在获取RecordSet时就进行处理，使记录数是5的整倍数就可以了，DataReport中你可以通过调整页头、页脚高度以及细节栏高度来控制，使细节部分只能显示5条记录（通过报表预览查看）。
[/Quote]
能具体点吗？

[Fanks]

1.记录数处理
dim iCount as integer '记录数
dim iMod as integer '余数
dim iAdd as integer '添加的空行数

iMod=iCount Mod 5
if iMod>0 iAdd=5-iMod
'循环给RecordSet添加iAdd数量的空行，不需要写了吧？

2.DataReport显示
先定义好细节栏的字体和高度，此时在报表上实际显示可能是多于5行的，这样就添加页头页脚并加大或缩小其高度来限制细节栏可显示的总高度，达到输出固定5行的效果。