加一个分页符，在报表的代码界面里面写入以下代码：
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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
