سلاماً عليك؛
هاك مثال لرسم خط و لكن على الـReport يمكنك نداء هذا الـSub عند فتح الـReport
Sub DrawLine()
Dim rpt As Report, lngColor As Long
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Set rpt = Reports!yourReportName
rpt.ScaleMode = 3 ' Set scale to pixels.
sngTop = rpt.ScaleTop + 5 ' Top inside edge.
sngLeft = rpt.ScaleLeft + 5 ' Left inside edge.
sngWidth = rpt.ScaleWidth - 10 ' Width inside edge.
sngHeight = rpt.ScaleHeight - 10 ' Height inside edge.
lngColor = RGB(255,0,0) ' Make color red.
rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, B ' Draw line as a box.
End Sub