方法一： 加一个分页符PageBreak1，在报表的代码界面里面写入以下代码：Option Compare DatabaseDim row As LongDim RowsInPage As IntegerPrivate 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 IfEnd Sub 方法二：在报表的代码界面里面写入以下代码：Option Compare DatabaseDim row As LongPrivate 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 IfEnd Sub