Access报表打印——自动分页

·中文Access2000速成教程--1.8定义表之
·ACCESS集锦
·Access新手来看：Access的特点、概念
·要精通ACCESS需掌握的内容
·用Access 2000进行班级管理
·一篇详细讲述mysql和access区别的好文
·Access使用查询
·中文Access2000速成教程--1.1使用“向
·Access建立会计日期的报表
·Java 访问 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

最新文章

Access安全吗？——Access安全性之QA详解[01-08]

Access安全吗?—Access安全性详解[01-08]

Access 中如何知道引用的相对应的名称?[01-08]

（第二课） XML语法（原创黑闪）[01-08]

(delphi)程序运行过程中等待对话框的自定义组件源码[01-08]

数据备份中可能出错的情况及解决办法[01-08]

相关文章