tranthanhan1962 > 26-06-15, 01:42 PM
Option Compare Database
Option Explicit
Dim fShade As Boolean
---------------------------------------------------------------------------------------
Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
If fShade Then
Me.Detail1.BackColor = 10092543
Else
Me.Detail1.BackColor = 16777164
End If
fShade = Not fShade
End Sub
-----------------------------------------------------------------------------------------
Private Sub PageHeader0_Print(Cancel As Integer, PrintCount As Integer)
fShade = False
End Sub