Access设计的报表在预览时将符合条件数据突出显示

我们在使用Access制作报表时，有时候打印的报表想将某些符合条件的数据重点突出显示，那么可以通过条件格式来设置，这样可以设置各种突出的样式来展示重要的数据，这里介绍一下在报表中，把指定范围的数据集用椭圆圈释出来，如下图：

将以下代码放入报表主体事件里，让价格小于或等于5的数据用红色的椭圆圈给圈出来。

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim sH As Single
    Dim sV As Single
    Dim sW As Single
 
    If Me.价钱<= 5 Then 
     With Me.价钱 
       sH = .Left + .Width / 2 '椭圆的位置 
       sV = .Top + .Height / 2 sW = .Width / 2 '设置椭圆的宽度 
     End With 
     Me.Circle (sH, sV), sW, vbRed, , , 0.3 '画椭圆 
    End If 
End Sub

此代码主要是通过定位到指定条件的位置，用Circle函数画出指定大小的椭圆实现。