问题：

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

方法一：

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

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

更多信息请查看IT技术专栏