Access報表打印——自動分頁

2024-07-21 02:09:30

字體：大中小

供稿：網(wǎng)友

access報表打印——自動分頁

問題：

每頁打印一定行數(shù)后自動分頁

方法一：

加一個分頁符，在報表的代碼界面里面寫入以下代碼：
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如何制作復雜報表——利用Excel輸出復雜報表