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

将指定数据圈释出来打印

时 间: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



 

附   件:

点击此示例下载



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

常见问答:

技术分类:

相关资源:

专栏作家

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