S
StargateFan
Good Evening!
I got this code from the archives of access.reports and on the print
preview, the page border displays perfectly:
****************************************************************
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
****************************************************************
However, nothing ever shows up in the printout. I must be doing
something wrong. I used line width values from 1 to 6 and test each
by printout out but no borders show up.
Is this perhaps not the right code to use? Kinda weird to have lines
on the screen that don't show on the paper page <g>.
Thanks. D
I got this code from the archives of access.reports and on the print
preview, the page border displays perfectly:
****************************************************************
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
****************************************************************
However, nothing ever shows up in the printout. I must be doing
something wrong. I used line width values from 1 to 6 and test each
by printout out but no borders show up.
Is this perhaps not the right code to use? Kinda weird to have lines
on the screen that don't show on the paper page <g>.
Thanks. D