每页打印一定行数后自动分页

方法一： 加一个分页符PageBreak1，在报表的代码界面里面写入以下代码：

Option Compare Database

Dim row As Long

Dim RowsInPage As Integer

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

    RowsInPage = 7

    row = row + 1

    If row >= RowsInPage Then

        Me.PageBreak1.Visible = True

        row = -1

    Else

        Me.PageBreak1.Visible = False

    End If

End Sub

方法二：

在报表的代码界面里面写入以下代码：

Option Compare Database

Dim row As Long

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

    row = row + 1

    If Me.Section(acDetail).ForceNewPage = 1 Then

        Me.Section(acDetail).ForceNewPage = 0

    Else

        If row Mod 7 = 0 Then

            Me.Section(acDetail).ForceNewPage = 1

            row = 0

        End If

    End If

End Sub