Option Compare Database
Option Explicit

Public lngRptID As Long
Public iGrey As RepLook     
Dim bGreyStripe As Boolean

Private Sub GreyStripe()
    If iGray =  1  Then
         'на заднем плане закладывается прямоугольник для подсветки строки
        Me!prBack.BackColor = IIf(bGrayStripe , vbMenuBar, vbWhite)
        bGreyStripe = Not bGreyStripe 
    End If
End Sub

Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
    bGreyStripe = True
End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    GreyStripe
End Sub