レポート：１行おきに背景色を変更

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 ( オリジナル作成日：1996/11/12 )

概　要

　プロシージャを使用し、レポートの詳細セクションを１行ごとに背景色を変更する方法です。

手　順

1. レポートのデザインビューで、ツールバーのコードボタン (7.0)  (97 以降) を押し、モジュールウィンドウを表示させます。
   
   
2. オブジェクト: (General)　プロシージャ: (declarations) に変数の宣言を行います。
   
   Dim LineCnt As Integer
   

3. ページヘッダーの "OnPrint/印刷時" のイベントプロシージャを次のように設定します。
   
   Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer)
   LineCnt = 0
   End Sub
   
   【2000以降】
   このプロシージャ名は "ページヘッダーセクション_Print" となります。
   

4. 詳細セクションの "OnPrint/印刷時" のイベントプロシージャを次のように設定します。
   

    Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    LineCnt = LineCnt + 1
    If LineCnt Mod 2 = 0 Then
        Me.Section(0).BackColor = RGB(200, 200, 200) ' ※
    Else
        Me.Section(0).BackColor = RGB(256, 256, 256)
    End If
    End Sub

※　の RGB 関数の数値は、印刷状況により調整して下さい。

改訂履歴

• 1999/09/01 Access 2000 でのヘッダーセクションの省略時名称の変更に伴い、プロシージャ名の補足追加。

目次へ戻る