会员投稿
投稿指南 
RSS订阅栏目导航
热点推荐
- Access真正的随机不重复select查
- 十万条Access数据表分页的解决方
- Access数据库操作中出现的怪现象
- 注意！Access不为人知的秘密技巧
- 解决用Access数据库建站维护不便
- Access 和 SQL Server数据类型的
- 十万条Access数据表分页的两个解
- Access 2007的Ribbon功能区详解
阅览排行
Access报表打印——自动分页
www.jz123.cn 2008-11-15 来源: 中国建站 袁袁整理 我要投递新闻
问题：
每页打印一定行数后自动分页
方法一：
加一个分页符，在报表的代码界面里面写入以下代码：
以下为引用的内容：
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
0
上一篇：备份你的改过后缀名的ACCESS数据库 下一篇：怎样用代码隐藏、最大化、最小化ACCESS的主窗口