S
StargateFan
I got this code from the archives and on the print preview, it works
perfectly in every report I added it to:
****************************************************************
Private Sub Report_Page()
Me.DrawStyle = 0 ' 0 = (Solid Line) thru 6 = (invisible line)
' ALL NUMBERS ARE PIXELS...
Me.DrawWidth = 6 ' set the thickness of the line
' Draw a box (the border!) around the page.
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
End Sub
****************************************************************
Anyone know why the lines not displaying? I've tried values 1 thourhg
6 but none display. This code is not delivering on its promise! <g>
Thanks. D
perfectly in every report I added it to:
****************************************************************
Private Sub Report_Page()
Me.DrawStyle = 0 ' 0 = (Solid Line) thru 6 = (invisible line)
' ALL NUMBERS ARE PIXELS...
Me.DrawWidth = 6 ' set the thickness of the line
' Draw a box (the border!) around the page.
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
End Sub
****************************************************************
Anyone know why the lines not displaying? I've tried values 1 thourhg
6 but none display. This code is not delivering on its promise! <g>
Thanks. D