Access報表打印如何自動分頁

    問題：
    每頁打印一定行數(shù)后自動分頁
    方法一：
    加一個分頁符，在報表的代碼界面里面寫入以下代碼：
    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