当前位置:雨林木风下载站 > 办公软件教程 > 详细页面

Access报表打印如何自动分页

Access报表打印如何自动分页

更新时间:2022-05-05 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

   问题:

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

  方法一:

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

  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


Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行