• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 虚拟主机 >> 数据库 >> Access报表打印——自动分页

Access报表打印——自动分页

• 作者：创新互联 文章来源：虚拟主机 点击数： 更新时间：2013-06-14
• 问题Access报表打印自动分页
  每页打印一定行数后自动分页
  
  Access报表打印自动分页方法一
  加一个分页符，在报表的代码界面里面写入以下代码：
  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
  

  
  

  Access报表打印自动分页方法二
  在报表的代码界面里面写入以下代码：
  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
• 符合数据库需求的最佳SQL Server版本选择 :上一篇
  优化SQL Server数据库查询方法 :下一篇