Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

[access报表]报表打印每隔n行间隔标记

时 间:2010-04-12 17:02:31
作 者:陈福祥   ID:6728  城市:江津
摘 要:从网上下了本书,名叫“Access2007宝典”,看看之后,收获是相当的大。本来一直对报表这个东西有点不熟悉,现在也能跟着别人的指点,整点花样出来,还是有点高兴的。
正 文:

个人的一点体会,让大家见笑了。

在报表设计中,报表的控件有几个属性,结合起来用觉得还是有意思。那就 “可见”、“可以缩小”、“运行总和”。

为了让报表每间隔 n 行打印一个东东出来,利用上述三种属性就可做了。

首先,在报表主体的正常控件下方添加两个文本框控件,一个作为计数用,一个作为让报表间隔 n 行整个标记出来用。

将记数用的文本框的“运行总和”属性设为“全部之上”,“可见”设为“否”,“可以缩小”属性设为“是”,“控件来源”设为“=1” 。

将作为标记用的文本框的“可见”属性设为“是”,“可以缩小”属性设为“是”,控件来源不要管,让它为未绑定控件。

将主体节的“可以缩小属性”设为“是”。

然后,你就可以在报表的主体节的 Format 事件过程中为所欲为了。比如我输入下列代码:

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim X1 As Integer, X2 As Integer, Y1 As Integer
    Dim Co As Integer
    If (Me.txt计数 Mod 6) = 0 Then
        Me.txt空行 = String(300, 45)
        X1 = Me.txt空行.Left
        Y1 = Me.txt空行.Top + Me.txt空行.Height / 2
        X2 = Me.txt空行.Left + Me.txt空行.Width
        'Me.Line (x, y)-(x1, y)
        For Co = X1 + 0.5 * 1440 To X2 Step 0.5 * 1440
            Me.Circle (Co, Y1), 0.15 * 1440
        Next
    Else
        Me.txt空行 = Null
    End If
End Sub

结果如图:

返正,如果你能想象出更多花招,比如在页眉上及其他什么部位上,整点其他东西,应该都可以使用出来,呵呵……

 

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助