- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
- 11XP系统怎么清除缓存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
[摘要]问题：每页打印一定行数后自动分页方法一：加一个分页符，在报表的代码界面里面写入以下代码：OptionCompareDatabaseDimrowAsLongDimRowsInPageAsInteger...
问题：
每页打印一定行数后自动分页
方法一：
加一个分页符，在报表的代码界面里面写入以下代码：
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在很多地方得到广泛使用，例如小型企业，大公司的部门。
推荐资讯 总人气榜
最新教程 本月人气
- 1Access给字段添加有效果性
- 2PHP数据库链接类(PDO+Access)案例
- 3怎么使用c#设置ACCESS数据库
- 4通知我软件怎么打开Accessibility service服务？_手机软件图文说明教程
- 5Access9.8 保存新建的查询
- 6Excel中的数据怎么导入到Access数据库中?
- 7Apache的Mode Rewrite模块与.htaccess文件配合
- 8Excel工作表怎么导入Access数据库数据
- 9怎么拆分复制的Access 97数据库
- 10Access怎么含糊参数进行分页查询代码
- 11在Access2007“迅速访问工具栏”添加更多命令
- 12Java怎么连接Access数据库_Javascript图文说明教程
- 1猎豹浏览器抢票不受12306新版验证码影响
- 2360手机助手红包怎么提现 360手机助手红包提现设置流程
- 3160wifi远程桌面怎么连接 160wifi远程桌面连接设置方法
- 4微信PC版1.0.7.33官方下载公布 修好bug优化软件
- 5ios9不越狱怎么恢复短信与照片 ios9不越狱恢复短信与照片图文说明教程
- 6抱抱app怎么玩 抱抱app使用图文说明教程图
- 7抱抱app免费随机通话使用图文说明教程(图文流程)
- 8yy游戏直播怎么开 yy游戏直播打开方法
- 9手机登12306验证码总是出错处理方法介绍
- 10Linux内核4.2优化了哪一些地方？
- 11linux系统使用命令维护RHCS的方法
- 12Linux系统Dalvik堆内存的管理与回收介绍
相关文章
