レポートに連番を印刷することができます。
印刷フォームの[連番開始番号]を連番の開始番号にして連番を印字します。
次項に「レコード単位の連番を印刷する[Access97]」の例があります。
開始番号が固定の場合、Accessの[ヘルプ]−[トピックの検索]−[目次]−”レポート”−”合計の計算と式の使用”−”レコードの番号付けとカウント”−”レポートの各詳細レコードに番号をつける”を参照してください。
Soraの機能を使って連番を印刷する場合は、「Soraレポートに連番を印刷する」を参照してください。
- レポートに非連結のテキストボックスを作成します。
ここでは、名前を”連番1”にします。
このテキストボックスが、連番を印刷します。
- [詳細]プロパティの[印刷時]イベントに下記のコードを追加します。
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”変数には、印刷フォームの連番開始番号が設定されています。
|
- 書籍「できるAccess97」
67請求金額の合計を求めるには(p206)
- Accessの[ヘルプ]−[トピックの検索]
[目次]−”レポート”−”合計の計算と式の使用”
−”レコードの番号付けとカウント”
−”レポートの各詳細レコードに番号をつける”
|