ko-do 自分自身の為に書いてあります

、構文 expression,BackColor
Dim myFlagA As Boolean

Private Sub 詳細＿Print（Cancel　As Onteger,FormatCount As Integer）
Dim myFlagA As Boolean
'If myFlagA = True Then
Report_03 . 詳細.BackColor = RGB(255,255,255)
'変数myFlagAがfalse ならレコードの背景色を灰色にする
Else
Report_03 .詳細. BackColor = RGB(200,200,200)
End If
'myFlagAの値を　現在TrurならFあFalseに、現在FalseならTrueに更新する
myFlagA = Not myFlagA
End Sub