Access报表打印怎么自动分页

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

　　问题：

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

　　方法一：

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

　　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

　　EndSub

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

……

标签:Access报表打印如何自动分页