Microsoft Access 掲示板

レポート印刷時にレコードごとの連番を振りたい / 3

5 コメント
views
4 フォロー
3
fukusan113 2024/10/25 (金) 17:46:24 d3bd2@c5781

初めての相談になります。

VBA超初心者ですが教えて下さい。

フォーム上で「印刷部数」をテキストボックスに入力して、印刷ボタンを押すと指定した部数を印刷し

さらに連番も一緒に印刷されるようにするにはどうすれば良いのでしょうか?

【印刷部数】というテキストボックスを作成し、印刷ボタンを下記インベントプロシージャを設定しています。

Private Sub cmdPrint_Click()

Const DocName = "T_ケースマーク印刷データ(Tag Noあり) のコピー"

    DoCmd.Echo False

    DoCmd.OpenReport DocName, acViewPreview

    DoCmd.PrintOut acPrintAll, , , , Me!印刷部数

    DoCmd.Close acReport, DocName

    DoCmd.Echo True

End Sub

宜しくお願い致します。

通報 ...
  • 4
    hiroton 2024/10/25 (金) 18:33:55 b198c@e0d71 >> 3

    取りあえず、元の質問と内容が変わりそうなので、「新しいトピックを作る」から新たに質問を立てると良いと思います

    5
    fukusan113 2024/10/28 (月) 12:49:30 d3bd2@660d2 >> 4

    そうですね💦
    新しいトピックで質問させて頂きます。