Access报表打印如何自动分页

问题： 每页 打印 一定行数后 自动 分页 方法一： 加一个分页符，在 报表 的代码界面里面写入以下代码： OptionCompareDatabase DimrowAsLong DimRowsInPageAsInteger PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger) RowsInPage=7 row=row+1

问题：

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

方法一：

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

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

查看更多关于Access报表打印如何自动分页的详细内容...