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

連番を印刷する[Access97]


レポートに連番を印刷することができます。
印刷フォームの[連番開始番号]を連番の開始番号にして連番を印字します。

次項に「レコード単位の連番を印刷する[Access97]」の例があります。
開始番号が固定の場合、Accessの[ヘルプ]−[トピックの検索]−[目次]−”レポート”−”合計の計算と式の使用”−”レコードの番号付けとカウント”−”レポートの各詳細レコードに番号をつける”を参照してください。
Soraの機能を使って連番を印刷する場合は、「Soraレポートに連番を印刷する」を参照してください。


<設定手順>
[Soraレポート(連番印刷)]
  1. レポートに非連結のテキストボックスを作成します。
    ここでは、名前を”連番1”にします。
    このテキストボックスが、連番を印刷します。
  2. [詳細]プロパティの[印刷時]イベントに下記のコードを追加します。
    Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
        apRptPrint Me
        '連番処理
        If IsNull([連番1]) Then
            '印刷フォームの連番開始番号を使う場合
            If IsNull(apRptInfo.varRptRen) Then
                [連番1] = 1    '印刷フォームの連番開始番号を使わない場合
            Else
                [連番1] = apRptInfo.varRptRen
            End If
        Else
            [連番1] = [連番1] + 1
        End If
    End Sub
    
    ”apRptInfo.varRptRen”変数には、印刷フォームの連番開始番号が設定されています。

<参照>
  1. 書籍「できるAccess97」
    67請求金額の合計を求めるには(p206)
  2. Accessの[ヘルプ]−[トピックの検索]
    [目次]−”レポート”−”合計の計算と式の使用”
    −”レコードの番号付けとカウント”
    −”レポートの各詳細レコードに番号をつける”