Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Static str As String
If PrintCount = 1 Then
If str <> Me.Раздел Then
Me.Section(0).BackColor = RGB(255, 0, 0)
str = Me.Раздел
Else
Me.Section(0).BackColor = RGB(255, 255, 255)
End If
End If
End Sub
|