Access雙十一活動
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-報表

[access報表]每頁打印一定行數后自動分頁(報表分頁)

時 間:2007-12-17 08:38:49
作 者:UMVSOFT整理   ID:16  城市:江陰
摘 要:每頁打印一定行數后自動分頁(報表分頁)
正 文:

每頁打印一定行數后自動分頁

方法一: 加一個分頁符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


Access軟件網QQ交流群 (群號:198347485)       access源碼網店

最新評論 查看更多評論(4)

2019/10/22 23:38:29郭云開
在子報表里不起做用

2008/4/22 22:41:39愛在深秋
是呀,我也想要這個方面的知識,請幫我們一下呀

2008/4/11 15:28:01李新功
你好,謝謝!不過不是我要的效果,每頁要打印5條記錄,并且要有頁眉頁腳,不足5條記錄的要用空格代替,

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助