４章 カスタマイズ ／４-4レポート

行単位に色を変更する[Access97]

レポートの詳細セクションを１行ごとに背景色を変更することができます。
Soraレポートにコード（プログラム）を追加することで実現します。

行単位に色を変更する

＜操作手順＞
  1. コード画面の表示
    Soraレポート（AccessレポートはSoraレポートに変換しておきます。）を［デザイン］で開きます。
    ［表示］ツールメニューの［コード］をクリックします。
  2. 変数の宣言をします。
    lngLineCnt変数を宣言します。
    Option Compare Database
Option Explicit
Dim lngLineCnt As Long  '行色変更  ＜＝追加行
  3. ［印刷時］イベントの追加
    ページヘッダーの［OnPrint/印刷時］イベントプロシージャを次のように設定します。
    Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer)
    lngLineCnt = 0  '行色変更
End Sub
  4. ［印刷時］イベントの変更
    詳細セクションの［OnPrint/印刷時］イベントプロシージャを次のように設定します。
    Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    '行色変更
    lngLineCnt = lngLineCnt + 1
    If lngLineCnt Mod 2 = 0 Then
        Me.Section(0).BackColor = 16777215  '偶数行
    Else
        Me.Section(0).BackColor = 11910348  '奇数行
    End If
    
    apRptPrint Me
End Sub