澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> MsAccess教程 >> 内容

    Access报表打印——自动分页

    时间:2012/7/23 20:16:19 点击:

      核心提示:Access报表打印——自动分页问题:每页打印一定行数后自动分页方法一:加一个分页符,在报表的代码界面里面写入以下代码:OptionCompareDatabaseDimrowAsLongDimRows...
    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

    Tags:AC CC CE ES 
    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •