您的位置：　首页 > 技术文章 > Access数据库-报表

将指定数据圈释出来打印

来源:www.accessoft.com 点击数:6084 　 | 收藏 | 复制

时　间:2015-12-08 08:29:06
作　者:杨雪 ID：42182 城市：南京
摘　要:打印数据记录技巧：Format事件，Circle方法，RGB()函数

正　文:

如果需要打印报表时，将报表中满足特定条件的某个字段数据圈释出来，可以在报表主体的Format事件中进行设置。

首先使用IF语句判断记录中的数据是否满足指定条件，满足则在需要的位置画椭圆，不满足的则忽略。

语法：

[对象名].Circle([圆心坐标]),[半径],[颜色],,,[长短轴比]

为了使得所画椭圆刚好能够圈中满足条件的数据，需要引用指定字段对文本框的位置，如左边距（Left）,上边距（Top）,高度（Height）和宽度（Width）等等，其具体语法格式为：

me.[字段名].[属性]

注意：在报表预览中可看到效果

截图:

代码:

'圈释零售价大于20元的数据
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim sH As Single
    Dim sV As Single
    Dim sW As Single
    '判断记录的零售价是否大于20元
    If Me.零售价 >= 20 Then
        With Me.零售价
            '得到零售价大于20元的零售价文本框中心位置
            sH = .Left + .Width / 2
            sV = .Top + .Height / 2
            '得到零售价大于20元的零售价文本框的宽度
            sW = .Width / 2
        End With
        '为满足条件的零售价画椭圆
        Me.Circle (sH, sV), sW, RGB(255, 0, 0), , , 0.28
    End If
End Sub