access简述报表的功能_[access报表]access打印 报表分页功能

时　间:2009-01-13 08:30:27

作　者:摘　要:Access打印 报表分页功能

正　文:

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

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

Access软件网官方交流QQ群(群号:39785885)

Access源码网店