| 范文 |
问题：
每页打印一定行数后自动分页
方法一：
加一个分页符，在报表的代码界面里面写入以下代码：
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 |