每页打印一定行数后自动分页(报表分页)
考试编辑整理:每页打印一定行数后自动分页(报告分页)。
方法1:添加一个PageBreak1,在报表的代码接口中编写如下代码:
选项比较数据库
Dim行一样长
Dim RowsInPage作为整数
Private body _ format(取消为整数,格式计数为整数)
RowsInPage = 7
行=行+ 1
如果行> = RowsInPage,则
我。PageBreak1.Visible = True
row = -1
其他
我。PageBreak1.Visible = False
如果…就会结束
末端接头
方法二:
在报告的代码接口中编写以下代码:
选项比较数据库
Dim行一样长
Private body _ format(取消为整数,格式计数为整数)
行=行+ 1
如果我。部分(acDetail)。那么ForceNewPage = 1
我。部分(acDetail)。ForceNewPage = 0
其他
如果行Mod 7 = 0,则
我。部分(acDetail)。ForceNewPage = 1
row = 0
如果…就会结束
如果…就会结束
结束Sub
0条评论