هذا كود يقوم بوضع دأئرة على قيمة معينة في التقرير مثلا دائرة على درجات طالب أقل من 50% يلزم فيه بعض التعديلات الرجاء من الأخوة تجربته و إجراء التعديلات اللازمه عليه ونشره هنا لنستفيد منه0
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim Ctl As Control
Dim intPrintCircle As Integer
Dim sngaspect As Single, sngYoffset As Single
Dim intEllipseHeight As Integer, intElipseWidth As Integer
Dim sngXcoord As Single, sngYcoord As Single
Dim intI As Integer
sngaspect = 0.23
sngYoffset = 200
intEllipseHeight = Me!Goal.Height * 1.1
intElipseWidth = Me!Goal.Width * 1.04
sngYcoord = (Me!Goal.Top + Me!Goal.Height) 2 + sngYoffset
For intI = 1 To 4
Set Ctl = Me("Qtr" & intI)
If Not IsNull(Ctl) Then
intPrintCircle = (Ctl >= 0.9 * Me!Goal)
If intPrintCircle Then
sngXcoord = Ctl.Left + (Ctl.Width 2)
Me.Circle (sngXcoord, sngYcoord), intElipseWidth 2, , , , sngaspect
End If
End If
Next intI
End Sub