首页 > 数据库 > Access > 正文

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

2024-09-07 19:03:55

字体：大中小

来源：转载

供稿：网友

问题：

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

方法一：

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

以下为引用的内容：
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数据库中Field对象的caption属性读写

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

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

最牛同桌！我考了696分我同桌考了703分

2024-06-26 22:28:41

650分！高二女生考入北大：遗憾不能上高三

2024-06-26 22:26:16

男生估分600只考了397 妈妈：高考虽重要，但不代表所有

2024-06-26 22:23:01

唐尚珺回应是否会直播带货：有人出100万想和他合作！

2024-06-25 19:29:23

名校抢人名场面：清华、北大太拼了！

2024-06-25 19:22:14

男生高考语文满分！网友：第一次听说

2024-06-25 19:19:15

疑难解答

图片精选

网友关注