当前位置：首页 > 网络编程 > 数据库 > ACCESS > Access报表打印——自动分页

Access报表打印——自动分页

点击次数：39 次 发布日期：2008-11-21 22:41:08 作者：源代码网
源代码网推荐

源代码网整理以下问题：

源代码网整理以下每页打印一定行数后自动分页

源代码网整理以下方法一：

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

源代码网整理以下

以下为引用的内容：
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

源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华