打印再添一例，自动分页_access报表-报表设计-打印预览

打印再添一例，自动分页

时间：2003-12-06 00:00 来源：ACCESS911 作者：ec 阅读：次

问题：

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

方法一：

加一个分页符，在报表的代码界面里面写入以下代码：

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

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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：如何在报表中使用自定义尺寸的纸张
下一篇：在 Access 2002 中更改报表的打印机设置