当前位置: 主页 > 编程知识 > Access数据库 > Access报表打印——自动分页

Access报表打印——自动分页

时间:2009-11-17来源:站长资讯网 点击:

问题:

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

方法一:

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

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

站长资讯网
. TAG: ACCESS 打印 自动
推荐内容最近更新人气排行
关于我们 | 友情链接 | 网址推荐 | 常用资讯 | 网站地图 | RSS | 留言