Hi,

Below code provides border to report. It may be true but It is not giving all 4 border lines to page. One of them is missing which is bottom line of A4 page. How do get all appreared? I checked even page set up. It is A4 size.


Private Sub Report_Page()
On Error Resume Next

Me.DrawWidth = 1
Me.DrawStyle = 0

Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbBlack, B

On Error GoTo 0
End Sub

Anyone have idea?