REPORT line backgound color

[Quan9r]

I have looked everywhere and cannot find anything on how to change the background color of every OTHER line in the detail seciton of a report (light gray then white) - I believe it is rather simple - but to complicated fo me -

Any help would be appreciated!!

 

[PaulF]

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
lngPrint = lngPrint + 1
If lngPrint Mod 2 = 0 Then
Me.Detail.BackColor = 15066597
Else
Me.Detail.BackColor = 16777215
End If

End Sub


PaulF

 

[rpol79]

Quan9er

Also, try this:

Dim iColor

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

If iColor Then
Me.Line (0, 0)-(Me.Width, Me.Section(0).Height), 65535, BF
End If

iColor = Not iColor

End sub


Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)

iColor = False

end sub

 

[PaulF]

forgot to mention that
lngPrint is a Module Level variable

Dim lngPrint as Long

PaulF