Access报表打印如何自动分页

　　问题

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

　　方法一

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

　　OptionCompareDatabase

　　DimrowAsLong

　　DimRowsInPageAsInteger

　　PrivateSub主体_Format(CancelAsIntegerFormatCountAsInteger)

　　RowsInPage=

　　row=row+

　　Ifrow>=RowsInPageThen

　　MePageBreakVisible=True

　　row=

　　Else

　　MePageBreakVisible=False

　　EndIf

　　EndSub

　　方法二

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

　　OptionCompareDatabase

　　DimrowAsLong

　　PrivateSub主体_Format(CancelAsIntegerFormatCountAsInteger)

　　row=row+

　　IfMeSection(acDetail)ForceNewPage=Then

　　MeSection(acDetail)ForceNewPage=

　　Else

　　IfrowMod=Then

　　MeSection(acDetail)ForceNewPage=

　　row=

　　EndIf

　　EndIf

　　EndSub

生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠