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

hjb016 · 发表于 2010-10-20 11:02:57

在报表的代码界面里面写入以下代码：
Option Compare Database
Dim row As Long
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
row = row + 1
If Me.Section(acDetail).ForceNewPage = 1 Then
      Me.Section(acDetail).ForceNewPage = 0
Else
      If row Mod 7 = 0 Then
         Me.Section(acDetail).ForceNewPage = 1
         row = 0
      End If
End If
End Sub

xuwenning · 发表于 2010-10-20 13:34:12

谢谢分享
学习了

82077802 · 发表于 2010-10-21 07:45:47

谢谢分享!
这样就很好，比分享图片强多了

asklove · 发表于 2010-10-21 15:01:00

学习

ycxchen · 发表于 2010-10-21 15:09:35

谢谢，学习！

zhao__feng · 发表于 2010-10-21 19:58:58

谢谢分享!

xie62 · 发表于 2010-10-24 07:57:43

谢谢分享!

girder · 发表于 2010-10-28 12:08:31

学习了，谢谢分享哦。。。。。。。。。。。。

kpsimon · 发表于 2012-2-23 23:18:38

谢谢分享

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[报表] 每页打印一定行数后自动分页

群介绍
主题无相 (随机显示版	同地区群块其他地区)