Access report question

  • Thread starter Thread starter Guest
  • Start date Start date
Mary Ann said:
How do I create a circle around some text on an an Access Report?
Click to expand...


Use the report's Circle method in the section's Print event.

How do you plan on calculating where the center of the
circle should be? I'll need more details if you want
example code (which is likely because the Help topic is more
than a little garbled).

As an aside, it might look nicer if you draw an elipse
instead of a circle.
 
Marshall Barton said:
Use the report's Circle method in the section's Print event.

How do you plan on calculating where the center of the
circle should be? I'll need more details if you want
example code (which is likely because the Help topic is more
than a little garbled).

As an aside, it might look nicer if you draw an elipse
instead of a circle.
Click to expand...

The text I'd like to circle (stored in a label) has a left property of 3", a
top property of 7.7917", a width property of .7917" and a height property of
..2917".
 
Mary said:
The text I'd like to circle (stored in a label) has a left property of 3", a
top property of 7.7917", a width property of .7917" and a height property of
.2917".
Click to expand...


Try this:

With nameoflabelcontrol
Me.Circle (.Left+.Width/2, .Top+.Height/2), .Width/2+50, _
vbBlack, , , 0.4
End With

Play around with the 50 and the 0.4 to get it to look nice.
The 50 is sort of a margin and the 0.4 makes a medium
flattened ellipse (1.0 makes a circle).

If you want to change the width of the line, use:

Me.DrawWidth = 10 ' or some smallish number

before the above lines.
 
Thank you very much for your help.

Marshall Barton said:
Try this:

With nameoflabelcontrol
Me.Circle (.Left+.Width/2, .Top+.Height/2), .Width/2+50, _
vbBlack, , , 0.4
End With

Play around with the 50 and the 0.4 to get it to look nice.
The 50 is sort of a margin and the 0.4 makes a medium
flattened ellipse (1.0 makes a circle).

If you want to change the width of the line, use:

Me.DrawWidth = 10 ' or some smallish number

before the above lines.
Click to expand...
 
Back
Top