Access报表打印——自动分页

您当前的位置：新网创想--网站空间--Access报表打印——自动分页
Access报表打印——自动分页

上一篇 Access 的最大容量 | 下一篇优化SQL Server数据库查询方法
问题：
每页打印一定行数后自动分页
方法一：
加一个分页符，在报表的代码界面里面写入以下代码：
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