首页 > 数据库 > Access > 正文

解读Access报表打印――自动分页

2020-07-13 12:26:05

字体：大中小

来源：转载

供稿：网友

问题：

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

方法一：

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

以下为引用的内容：
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

上一篇：解读access处理重复记录的方法

下一篇：解析ACCESS数据库中Field对象的caption属性读写

学习交流

【官方说法】HTTPS的常见问题解答

【官方说法】HTTPS的常见问题解答...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

vivoX50 Pro＋将于7月11日正式开售，价格4998元起

2020-07-12 16:04:18

腾讯与老干妈发布联合声明：已厘清误解，未来将开启合作

2020-07-12 16:01:45

华为已申请大量“鸿蒙”商标公司：正常商业流程

2020-07-08 22:20:34

微软可穿戴新专利曝光：能更精准测量佩戴者血压

2020-07-08 22:17:21

蚂蚁金服计划最早于今年在香港上市回应：消息不实

2020-07-08 22:13:18

比亚迪股价创新高市值超越上汽成中国车企第一

2020-07-07 23:21:37

疑难解答

图片精选

网友关注