问题描述：
access数据库打印报表时，每页打印一定行数后自动分页，这个如何实现。
方法一，加一个分页符，在报表的代码界面中添加代码：
复制代码 代码示例:
optioncomparedatabase
dimrowaslong
dimrowsinpageasinteger
privatesub主体_format(cancelasinteger,formatcountasinteger)
rowsinpage=7
row=row+1
ifrow>=rowsinpagethen
me.page
break18.visible=true
row=-1
else
me.pagebreak18.visible=false
endif
end sub
方法二，在报表的代码界面中添加代码：
复制代码 代码示例:
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数据库报表打印时的自动分页了。
