Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


取引先重要度リストを多色刷りで印刷する : Access裏技Tips



前頁で帳票レポートの2色刷りを紹介しましたが、状況によってはたくさんの色刷りが求められることもあります。 ここでは、帳票レポートを多色刷り(サンプルでは4色)でカラフルに印刷する技を紹介します。

4色刷りで印刷する

サンプルテーブル(tbl_sample)をもとにして、「取引先重要度リスト」の 帳票レポート(rpt_sample)を作成します。 レポートの背景色は白色です。 レポートの詳細セクションのフォーマットイベントプロシージャのIf構文を利用して、つぎつぎと色刷りを行い詳細セクションの背景色を変化させます。なお、サンプルでは4色としています。

「取引先重要度リスト」の レポートを作成

  1. 「取引先重要度リスト」の レポートを作成します。
  2. サンプルデータを元に、取引先重要度リストを作成します。

宣言セクションに変数を定義する

宣言セクションに変数を定義します。

Option Compare Database
Option Explicit

Dim Choice色 As Byte ' --- A
解説
  1. 宣言セクション(モジュールレベル)にバイト型の変数を定義します。
今回のおすすめポイント

データ型

変数を定義する場合は必ず、データ型を決めなければいけません。 今回は数値型の変数を利用しますので、Byte型で定義しています。以下、 主だった数値に関するデータ型です。

  1. バイト型 (Byte)  :  0 〜 255の整数
  2. 整数型 (Integer)  :  -32,768 〜 32,767の整数
  3. 長整数型 (Long)  :  -2,147,483,648 〜 2,147,483,647の整数

ページヘッダーセクションのフォーマットイベントプロシージャの作成

ページヘッダーセクションのフォーマットイベントプロシージャを作成します。

Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer)

    Choice色 = 1 ' --- A

End Sub
解説
  1. 変数Chice色の初期値を設定します。1〜4までの整数を指定します。
今回のおすすめポイント

フォーマットイベントと印刷時イベント

印刷を開始する前に、まずフォーマットイベントが発生します。続いて、印刷時イベントが発生する手順です。
今回は、すべてフォーマットイベントに記述していますが、印刷時イベントに置き換えても同じ結果になります。

詳細セクションのフォーマット時イベントプロシージャの作成

詳細セクションのフォーマット時イベントプロシージャを作成します。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

    Const ColorA = 9304826 ' --- A
    Const ColorB = 16761281
    Const ColorC = 13290239
    Const ColorD = 16777215
    
    If Choice色 = 1 Then  ' --- B
        Me.Section(0).BackColor = ColorA '--- C
        Choice色 = 2 ' --- D
        
    ElseIf Choice色 = 2 Then
        Me.Section(0).BackColor = ColorB
        Choice色 = 3
        
    ElseIf Choice色 = 3 Then
        Me.Section(0).BackColor = ColorC
        Choice色 = 4
    
    ElseIf Choice色 = 4 Then
        Me.Section(0).BackColor = ColorD
        Choice色 = 1
        
    End If
    
End Sub
解説
  1. Constステートメントを用いて定数を宣言します。
  2. IFステートメントの中で、変数Choice色の値に基づいて処理を分岐します。
  3. Section(0)は、詳細セクションをあらわします。
  4. Choice色 = 2とは、変数Choice色に 2 を代入することを意味します。

動作確認

レポートを印刷プレビューで開きます。

関連ページ

ページの先頭へ 前ページへ戻る

 


取引先重要度リストを多色刷りで印刷する : Access裏技Tips


 

-Microsoft Access Club-

アダルト・ゲーム配信可能なPLESKパネル付属の専用・共有レンタルサーバーを提供しています。
アダルトやゲーム配信が可能です。
全専用/共有レンタルサーバーにPLESKパネルをインストール済み。