手机
当前位置:查字典教程网 >编程开发 >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报表打印如何自动分页】相关文章:

Access6.5在表中复制和粘贴数据

Access数据库在线压缩的方法

Access9.7 汇总数据

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

将Access数据库移植到SQL Server

Access使用查询

Access模糊查询

Access数据库的压缩与修复

用Access2007解决支票打印的日期大写问题

删除Access数据库中的空记录

精品推荐
分类导航