[[20230405113548]]　『印刷時にナンバリングしたい』（こう）　ページの最後に飛ぶ

『印刷時にナンバリングしたい』（こう）

仕事で使うＡ4サイズ1枚のフォーム（書式）があります。
印刷する際、「00001」から順番に特定のセル１か所に番号を印字（ナンバリング）したいのですが、可能でしょうか。5桁での採番を希望です。
例えば、100枚印刷をかけたら、「00001」から「00100」と印字したいものです。
よろしくお願いいたします。

＜使用 Excel：Excel2007、使用 OS：Windows10 ＞

こんにちは＾＾
番号は勿論、中身も変えれる差し込みは。。。VBA
ルンルン！。。。V　B　A　～～～♪
m(__)m
でわ、お勉強してくださいね。

（隠居Z） 2023/04/05(水) 12:01:04

 まとめて印刷しようとすると連番にできないので（フォーマットを100枚分シートコピーすればできるけど）
 1枚印刷を100回繰り返す内容です。
    Sub 連番印刷テスト()
        Dim n As Long, i As Long
        Dim flg As Boolean
        Dim ws As Worksheet
        Dim rng As Range
        '_/_/_/_/ユーザー設定_/_/_/_/
        Set ws = Sheets("Sheet1")
        Set rng = ws.Range("A1")
        '_/_/_/_/　ここまで　_/_/_/_/
        n = Application.InputBox("印刷枚数を指定してください", Type:=0)
        flg = False
        Select Case n
            Case 0
            Case Is >= 100
                If MsgBox("100枚以上指定されています。まじですか？　指定枚数　=　" & n, vbYesNo) = vbYes Then
                    flg = True
                End If
            Case Else
                If MsgBox(n & "枚印刷します。よろしいですか？", vbYesNo) = vbYes Then
                    flg = True
                End If
        End Select
        If flg = True Then
            rng.NumberFormatLocal = "@"
            For i = 1 To n
                '連番を1ずつカウントアップして
                rng.Value = Format(i, "00000")
                '1枚ずつ印刷をn回繰り返す
                ws.PrintOut from:=1, To:=1, copies:=1
            Next i
        Else
            MsgBox "キャンセルされました"
        End If
    End Sub
（稲葉） 2023/04/05(水) 15:22:26

 ごめんなさい
 Typeの指定誤ってました
        n = Application.InputBox("印刷枚数を指定してください", Type:=1)
 こちらに置き換えお願いします。
（稲葉） 2023/04/05(水) 15:27:03

稲葉さん、ご回答ありがとうございます。
試してみたいと思いますm(__)m
（こう） 2023/04/05(水) 20:52:44

コメント返信：

[ 一覧(最新更新順) ]

[[20230405113548]] 『印刷時にナンバリングしたい』（こう） ページの最後に飛ぶ

[[20230405113548]]　『印刷時にナンバリングしたい』（こう）　ページの最後に飛ぶ