Borders around Report page

[Guest]

Hi everybody:
How yo make borders around a Reprot Page? Putting horisontal and vertical
lines does not work: When report text box in detail section grows, the border
vertical line gets a blank.
Please, help, thanks in advance

 

[Brendan Reynolds]

You can do it with some code in the Page event procedure of the report ...

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
sngHeight = Me.ScaleHeight - 10

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

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

End Sub