Access报表打印——自动分页

核心提示：问题：每页打印一定行数后自动分页方法一：加一个分页符，在报表的代码界面里面写入以下代码：OptionCompareDatabaseDimrowAsLongDimRowsInPageAsIntegerPrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)Rows

问题：

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

方法一：

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

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