Access报表打印如何自动分页
发布时间:2012-12-4 0:55:29 阅读次数:
问题:
每页打印一定行数后自动分页
方法一:
加一个分页符,在报表的代码界面里面写入以下代码:
option compare database
dim row as long
dim rowsinpage as integer
private sub 主体_format(cancel as integer, formatcount as integer)
rowsinpage = 7
row = row + 1
if row >= rowsinpage then
me.pagebreak18.visible = true
row = -1
else
me.pagebreak18.visible = false
end if
end sub
方法二:
在报表的代码界面里面写入以下代码:
option compare database
dim row as long
private sub 主体_format(cancel as integer, formatcount as integer)
row = row + 1
if me.section(acdetail).forcenewpage = 1 then
me.section(acdetail).forcenewpage = 0
else
if row mod 7 = 0 then
me.section(acdetail).forcenewpage = 1
row = 0
end if
end if
end sub
网站关键词:千喜网络 云主机租用 服务器托管 CDN加速 虚拟主机 网站空间 域名注册 企业邮局 数据库
上一章:十万条Access数据表分页的两个解决方法 下一章:建立自由的会计日期的报表