[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

结果如图：

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