Office中國論壇/Access中國論壇 › Access中國門戶舊版 ›Access› 報(bào)表打印 › 查看內(nèi)容

每頁打印一定行數(shù)后自動分頁（報(bào)表分頁）

1970-1-1 08:00| 發(fā)布者: 佚名| 查看: 4580| 評論: 0

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

方法一：加一個(gè)分頁符PageBreak1，在報(bào)表的代碼界面里面寫入以下代碼：
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

方法二：

在報(bào)表的代碼界面里面寫入以下代碼：
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

收藏分享邀請

上一篇：每頁打印一定行數(shù)后自動分頁（報(bào)表分頁）下一篇：Access之錯(cuò)誤代碼"3008"的解決方法

帳號		自動登錄	找回密碼
密碼			注冊

每頁打印一定行數(shù)后自動分頁（報(bào)表分頁）

最新評論

相關(guān)分類