无码人妻久久一区二区三区不卡_ 打印再添一例，自動(dòng)分頁(yè)

打印再添一例，自動(dòng)分頁(yè)

問(wèn)題：

每頁(yè)打印一定行數后自動(dòng)分頁(yè)

方法一：

加一個(gè)分頁(yè)符，在報表的代碼界面里面寫(xiě)入以下代碼：
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

方法二：

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

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久