每页打印一定行数后自动分页（报表分页）

考试编辑整理:每页打印一定行数后自动分页(报告分页)。

方法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