GirlBlonde
Programmer
hi
i have just converted to 2007 and when i am applying the code below to the on print event in the detail section it is no longer working. i am trying to alternate line row shading.
can anyone assist me with why this isnt working? Is it done another way in 2007>
greatly appreciate any help
code;
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'shade this row or not
Dim fshade As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const COLOR_SHADE = 14676208
Const DS_INVISIBLE = 5
If fshade Then
Me.DrawStyle = DS_INVISIBLE
Me.Line (0, 0)-(Me.Width, Me.Section(0).Height), COLOR_SHADE, BF
End If
'alternate the value of shade
fshade = Not fshade
End Sub
Energy & persistance conquer all things!
i have just converted to 2007 and when i am applying the code below to the on print event in the detail section it is no longer working. i am trying to alternate line row shading.
can anyone assist me with why this isnt working? Is it done another way in 2007>
greatly appreciate any help
code;
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'shade this row or not
Dim fshade As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const COLOR_SHADE = 14676208
Const DS_INVISIBLE = 5
If fshade Then
Me.DrawStyle = DS_INVISIBLE
Me.Line (0, 0)-(Me.Width, Me.Section(0).Height), COLOR_SHADE, BF
End If
'alternate the value of shade
fshade = Not fshade
End Sub
Energy & persistance conquer all things!