Private Sub Report_Page()
       On Error Resume Next
         Me.DrawWidth = 6
         Me.DrawStyle = 0
         Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbGreen, B
End Sub