问题：
每页打印一定行数后自动分页
  方法一：
加一个分页符，在报表的代码界面里面写入以下代码：

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

  例子下载：
  Access911.net/down/forcenewpage.rar" target=_blank />http://Access911.net/down/ForceNewPage.rar