手机
当前位置:查字典教程网 >编程开发 >Access数据库 >Access报表打印如何自动分页
Access报表打印如何自动分页
摘要:问题:每页打印一定行数后自动分页方法一:加一个分页符,在报表的代码界面里面写入以下代码:OptionCompareDatabaseDimro...

问题:

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

方法一:

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

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报表打印如何自动分页】相关文章:

Access数据库在线压缩的方法

搭建小型access数据库实录

Access模糊查询

Word美化打印Access数据表格方法

Access教程 怎样设置自动编号从1开始排序

利用Access实现学校课程表的科学管理

设置在 Access项目中检索的记录数

Access教程 如何在字段定义主键

Access使用查询

Access怎样设置自动编号从1开始排序

精品推荐
分类导航