Access报表打印——自动分页

最新推荐文章于 2024-09-19 16:49:43 发布

原创最新推荐文章于 2024-09-19 16:49:43 发布 · 2.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #access #integer #database

报表专栏收录该内容

4 篇文章

订阅专栏

本文介绍了如何在Access报表中实现自动分页打印，确保每个页面包含完整的信息，提高打印效率和阅读体验。

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

例子下载：
http://access911.net/down/ForceNewPage.rar