問題：

　　每頁打印一定行數后自動分頁

　　方法一：

　　加一個分頁符，在報表的代碼界面里面寫入以下代碼：

　　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