My use of reports is pretty basic. Play with this until you get what you want.
Code:
Private Sub Report_Page()
Dim bolWhite as Boolean
Dim LineBot AS Long
Dim colGrey AS Long
Const BoxPercent = 0.95
bolWhite = False
colgrey = RGB(200,200,200)
For LinePos = LinePos To 7.5 * 1440 _
Step Me.Section(0).Height
LineBot = LinePos + (BoxPercent * Me.Section(0).Height)
bolWhite = Not (bolWhite)
If bolWhite Then
Me.Line (0, LinePos)-(Me.Width, LinePos)
Else
Me.Line (0, LinePos)-(Me.Width, LineBot), colGrey, BF
End If
Next LinePos
End Sub
bolWhite will alternate between true and false, turning dark or light by turns.
colgrey you can adjust until the color of the dark boxes is what you want.
Boxpercent can be adjusted if needed, to resize the dark area.