每页打印一定行数后自动分页（报表分页）

1970-1-1 08:00| 发布者: 佚名| 查看: 2757| 评论: 0

每页打印一定行数后自动分页

方法一：加一个分页符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

Top

纵云梯发表于：2012-04-18 22:28:16

报表分页总计及补空行示例：http://www.accessoft.com/article-show.asp?id=4853

特别报表补空行：http://www.accessoft.com/article-show.asp?id=5280

子报表补空行问题：http://www.accessoft.com/article-show.asp?id=5247

报表补空行四种情况：http://www.accessoft.com/article-show.asp?id=5720

精简的报表补空行代码：http://www.accessoft.com/article-show.asp?id=3597

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

报表固定行数，请那位帮做个实事

每页打印一定行数后自动分页（报表分页）