| 每页打印一定行数后自动分页（报表分页） |
|
| 作者：佚名 文章来源：本站原创 点击数： 本日：{$DayHits} 更新时间：2006-10-26 23:19:05 |
方法一： 加一个分页符PageBreak1，在报表的代码界面里面写入以下代码：
Option Compare Database
Dim row As Long
Dim RowsInPage As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
RowsInPage = 7
row = row + 1
If row >= RowsInPage Then
Me.PageBreak1.Visible = True
row = -1
Else
Me.PageBreak1.Visible = False
End If
End Sub
方法二：
在报表的代码界面里面写入以下代码：
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 |
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： ACCESS和EXECL结合的简单说明
下一篇文章： 每页打印一定行数后自动分页（报表分页） |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
