Access报表打印——自动分页

　2008-10-07 00:00:00　来源：WEB开发网　闁靛棴鎷�

濠⒀呭仜閵囧洨鈧稒銇炵紞锟�闁靛棴鎷�　　闁稿繗娅曢弫鐐哄级閵婏缚鑸瀣仧濞堟垵顕ラ鐓庤Е

核心提示：问题：每页打印一定行数后自动分页方法一：加一个分页符，在报表的代码界面里面写入以下代码：OptionCompareDatabaseDimrowAsLongDimRowsInPageAsIntegerPrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)Rows

问题：

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

方法一：

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

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