时间：2006-10-26 23:19 来源：本站原创 作者：佚名 阅读：次

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

(责任编辑：admin)

上一篇：报表奇偶分页打印
下一篇：在Access中使用自动化打印报告

• ·解决Access在页面设置中设置边距无法保
• ·Access通用报表打印设置
• ·在Access中使用自动化打印报告
• ·报表奇偶分页打印
• ·access输出资料到word用于打印
• ·支票打印的日期大写问题Access2007
• ·[报表]报表跨节垂直居中例子
• ·ACCESS-VBA编程 第八章 报表
• ·用Access2007解决支票打印的日期大写问
• ·自由设置页码打印报表
• ·ACCESS和EXECL结合的简单说明
• ·每页打印一定行数后自动分页（报表分页
• ·在VB中用代码打印ACCESS报表
• ·[原创]在 Access 2000中变通实现弹出式
• ·在Access 2002中打印报表的关系图
• ·Access轻松实现多数据批量打印