Accessでプリントアウトするとき

質問

アクセスでプリントアウトするとき、奇数行と
偶数行の色を変えて見やすくすることはできるのでしょうか？よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

まず下記を参照に行番号を設定してください。
ACC2000:行番号のレポートの各 Record/Group のために、印刷方法
http://support.microsoft.com/default.aspx?scid=kb;ja;209567

上記が出来たら
空のテキストボックスを行全体になるようにして、最背面に配置します。
（「書式」「最背面に移動」で出来ます。）
「書式」「条件付き書式」で
「式」「=(MyLineNumber Mod 2 = 1)」で奇数行の塗りつぶしの色を設定
「追加を押して」
「式」「=(MyLineNumber Mod 2 = 0)」で偶数行の塗りつぶしの色を設定

お礼

参照リンクなど、どうもありがとうございました。
難しそうですが、頑張って試してみようと思います。

回答No.2

Te-Sho

VBAを使用すればそのまま詳細セクションの背景をコントロールできます。
条件付き書式を使わないのでAccess95以降でも動きます。
(条件付き書式はAccess2000以降の機能です。)

Dim lcnt As Integer 'レポートのクラス変数としてカウントを定義

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
lcnt = 0 'ページヘッダーを書き込む時にカウンタリセット
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
lcnt = lcnt + 1　'詳細１ライン分のカウントを加算

If lcnt Mod 2 = 1 Then '詳細のカウントを２で割ったあまりが
Me.詳細.BackColor = 16777215 '1の時は奇数ラインなので白
Else
Me.詳細.BackColor = 12632256 'それ以外の時はグレー
End If

End Sub

これで行けました。

お礼

ご回答ありがとうございました。
当方、初心者なもので、
ちょっと難しいのですが、
試してみたいと思います。