原文地址： http://access911.net/index.asp?board=4&mode=3&recordid=73FAB01E15DC

问题： 每页打印一定行数后自动分页 方法一： 加一个分页符，在报表的代码界面里面写入以下代码： 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://access911.net/down/ForceNewPage.rar

录入：changechange(CSDN)   责任编辑：cg1