您現在的位置： > 技術沙龍 > 數據庫 > Access > 打印再添一例，自動分頁
- 相關軟件
>打印再添一例，自動分頁 創(chuàng)建者：webmaster 更新時間：2005-05-17 23:44
問題：
每頁打印一定行數后自動分頁
方法一：
加一個分頁符，在報表的代碼界面里面寫入以下代碼：
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相關文章- 前一則: 判斷窗體是否打開的兩種方法
- 后一則: 將阿拉伯數字轉換為漢字數字,支持到百萬億