<<< 返回 access911.net 编程静态资料库索引页

打印再添一例,自动分页

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-3-30  浏览人次:2459


专题地址:http://access911.net/fixhtm/73FAB01E15DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:打印再添一例,自动分页《报表》

 


问题:

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

 

方法一:

加一个分页符,在报表的代码界面里面写入以下代码:
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.PageBreak18.Visible = True
        row = -1
    Else
        Me.PageBreak18.Visible = False
    End If
End Sub

 


方法二:

在报表的代码界面里面写入以下代码:
[CGCODE.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB01E15DC.htm

 


上一篇:确定当前记录为新增状态

下一篇:如何用vba代码创建一个查询?

2017年2月22日生成静态资料