Access VBA：レポートの一行ごとに網掛け（塗りつぶし）する

Access VBAで網掛けを行うには、レポートの詳細で一行ごとに背景色を変更します。

実行手順
1）Bool型のフラッグ変数を宣言します。
2）ページヘッダーセクション_Print イベントでフラッグを初期化します。
これで、ページ開始時点で網掛け位置が一定になります。
3）詳細_Print でフラッグを判定し、Trueなら網掛け、Falseなら白色（網掛けなし）にします。

実行したAccessレポート

■ Access VBA 実行コード例

Option Compare Database
Option Explicit

Private amiflag As Boolean

Private Sub ページヘッダーセクション_Print(Cancel As Integer, PrintCount As Integer)
    amiflag = False
End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    If amiflag Then
        Me.詳細.BackColor = 14803425
    Else
        Me.詳細.BackColor = QBColor(15)
    End If
    amiflag = Not amiflag
End Sub