问题：每页打印一定行数后自动分页方法一：加一个分页符，在报表的代码界面里面写入以下代码：OptionCompareDatabase
Me.PageBreak18.Visible=Truerow=-1ElseMe.PageBreak18.Visible=FalseEndIfEndSub方法二：在报表的代码界面里面写入以下代码：OptionCompareDatabase
PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)row=row+1IfMe.Section(acDetail).ForceNewPage=1Then
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024