Access报表打印如何自动分页

问题： 每页 打印 一定行数后 自动 分页 方法一： 加一个分页符，在 报表 的代码界面里面写入以下代码： OptionCompareDatabase DimrowAsLong DimRowsInPageAsInteger PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger) RowsInPage=7 row=row+1

问题：

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

方法一：

加一个分页符，在报表的代码界面里面写入以下代码：

OptionCompareDatabase
DimrowAsLong
DimRowsInPageAsInteger
PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)
　　RowsInPage=7
　　row=row+1
　　Ifrow>=RowsInPageThen
　　　　Me.PageBreak18.Visible=True
　　　　row=-1
　　Else
　　　　Me.PageBreak18.Visible=False
　　EndIf
EndSub

方法二：

在报表的代码界面里面写入以下代码：

OptionCompareDatabase
DimrowAsLong
PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)
　　row=row+1
　　IfMe.Section(acDetail).ForceNewPage=1Then
　　　　Me.Section(acDetail).ForceNewPage=0
　　Else
　　　　IfrowMod7=0Then
　　　　　　Me.Section(acDetail).ForceNewPage=1
　　　　　　row=0
　　　　EndIf
　　EndIf
EndSub