Help with drawing lines on a report

Nirious

Registered User.
Local time
Today, 12:33
Joined
Jul 31, 2004
Messages
106
Can someone explain this to me. I currently have the following code. It draws two lines at the border of my report. The lines on the first page are shorter than the ones on all the other pages. The problem is that the linewith of the first page is ok, but the linewith of all other pages gets reset to a very thin line :( I need a thicker line on those pages too

This is what I have right now
Code:
Private Sub Report_Page()
    Dim lcolor As Long
    Me.ScaleMode = 7
    Me.DrawWidth = 11
    lcolor = RGB(0, 0, 0)
    If Me.Page = 1 Then
        Me.Line (0, 9.4)-(0, 25.2), lcolor
        Me.Line (20.09, 9.35)-(20.09, 25.2), lcolor
    Else
        Me.Line (0, 3.5)-(0, 25.2), lcolor
        Me.Line (20.09, 3.5)-(20.09, 25.2), lcolor
    End If
End Sub
 

Users who are viewing this thread

Back
Top Bottom