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

ページ内合計を印刷する[Access97]

レポートのページフッターに、ページ内の数値の合計を印刷できます。
Soraレポートにコード（プログラム）を追加することで実現します。

＜操作手順＞
  1. 非連結コントロールの追加
    Soraレポート（AccessレポートはSoraレポートに変換しておきます。）を［デザイン］で開きます。
    金額を印刷する非連結のテキストボックス（TextSho）をページフッタに追加します。 合計を印刷する非連結のテキストボックス（TextGou）をページフッタに追加します。
  2. コード画面の表示
    ［表示］ツールメニューの［コード］をクリックします。
  3. ［印刷時］イベントの追加
    ページヘッダーの［OnPrint/印刷時］イベントプロシージャを次のように設定します。
    Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer)
    Me![TextGou] = 0
End Sub
  4. ［印刷時］イベントの変更
    詳細セクションの[TextSho]テキストボックスの合計を計算します。
    詳細セクションの［OnPrint/印刷時］イベントプロシージャを次のように設定します。
    Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount = 1 Then    '1回目だけ
        Me![TextSho] = IIf(IsNull(Me![DNPS1SU]), 0, Me![DNPS1SU]) * IIf(IsNull(Me![DNPS1TNK]), 0, Me![DNPS1TNK])
        Me![TextGou] = Me![TextGou] + IIf(IsNull(Me![TextSho]), 0, Me![TextSho])
    End If
    
    apRptPrint Me
End Sub