report border

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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
 
Back
Top