程序员人生网站导航

Access报表打印如何自动分页

栏目：access时间：2014-05-17 11:15:01

　　问题

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

　　方法一

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

　　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

　　EndSub

------分隔线----------------------------

上一篇 [Access 2000 教程]第五课:用表向导建立表

下一篇 网络存储:更简便更强大的客服端数据存储[译]

------分隔线----------------------------