I use...
Option Compare Database
Option Explicit
Dim fshade As Integer
----------------------------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const COLOR_SHADE = &HECECEC
Const DS_INVISIBLE = 5
If fshade = False Then
Me.DrawStyle = DS_INVISIBLE
Me.Line (0, 0)-(7034, Me.Section(0).Height), COLOR_SHADE, BF
End If
fshade = Not fshade
End Sub
------------------------------------------------
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
fshade = True
End Sub
-----------------
Adjust the Me.Line() and COLOR_SHADE to suit.
I hope I'm not violating any copyright... I got this originally from a Ken
Getz Access 2.0 book.
hth
Al Camp