报表是我们常用的的功能，也是反馈给领导的重要标签。access的报表功能是相对比较弱的。这里介绍两种方法， 每页打印一定行数后自动分页，一种方法是加入分页符，另一种方法是在主体控制分页。

方法一： 加一个分页符，在报表的代码界面里面写入以下代码： 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.PageBreak18.Visible = True       row = -1     Else       Me.PageBreak18.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