打印再添一例，自动分页

问题：

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

方法一：

加一个分页符，在报表的代码界面里面写入以下代码： 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

例子下载：

原文转自：http://www.ltesting.net