report border

[Guest]

I want to draw a border all around the report without enclosing the footer
section. My margins are:
left: 0.5
Right: 0.5
Top: 0.5
Bottom: 0.25
Can someone please help? Thanks.
Purnima

 

[Guest]

Add a Rectangle to the report, which acts as a border around the contents.

 

[Brendan Reynolds]

Private Sub Report_Page()

Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single

Me.ScaleMode = 3
sngTop = Me.ScaleTop + 5
sngLeft = Me.ScaleLeft + 5
sngWidth = Me.ScaleWidth - 10

'adjust the indicated value to leave the page footer outside the border
sngHeight = Me.ScaleHeight - 60 '<-- adjust this value

Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), vbBlack, B

'See Line Method in the help files for more information.

End Sub