报表每页打印到一定行数自动分页

       报表是我们常用的的功能，也是反馈给领导的重要标签。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