ExcelのVBAにて1つのジョブでまとめて印刷したい。

Question

前提・実現したいこと

Excelで差し込み印刷をしようとしています。

ネットからの引用で差し込み印刷は実現はできたものの、CubePDFで印刷しようとすると、For文の中にPrintOutをしているので、差し込み印刷分のウィンドウが開いてしまい、とても厄介ですし、管理も大変です。
また、共有プリンターで印刷すると、途中で別のPCからプリントアウトをしてしまうと差し込み印刷の中に埋まってしまいます。

ですので、1つの印刷ジョブにまとめられないものかと考えております。
当方ExcelのVBAは素人なもので、実現しようとしているものをネットから拾っている状態なので、初心者でも分かりやすい回答をよろしくお願い致します。

差し込み印刷のVBA文

この差し込み印刷はB1セルに差し込み通し番号が入り、その番号を変えるとVlookupで紐付けられた差し込み印刷シートの文言が可変する仕組みになっています。

Private Sub CB1_Click()

    Dim 番号 As Integer
    a = TB1.Value
    n = TB2.Value
    
    For 番号 = a To n
        
        Sheets("差し込み印刷").Range("B1").Value = 番号
        Sheets("差し込み印刷").PrintOut
    
    Next 番号
        
    Unload Me

End Sub

試したこと

色々とネットを漁ったり、PrintOutの位置をズラしたりしましたが、良い結果は得られませんでした。

補足情報（FW/ツールのバージョンなど）

Excel2019
Windows10 64bit

以上です、よろしくお願い致します。

Answer 1

差し込み印刷シートを印刷用に一時的にループの数だけ複製して、複数シートをまとめて印刷するしかないような気がします。

' 印刷用シート用意
For 番号 = a To n
    Sheets("差し込み印刷").Copy Before:=Sheets("差し込み印刷")
    Sheets(Sheets.Count - 1).Name = "差し込み印刷" & 番号
    Sheets("差し込み印刷" & 番号).Range("B1").Value = 番号
Next 番号

' 印刷用シートを選択状態にする
For 番号 = a To n
    Sheets("差し込み印刷" & 番号).Select Replace:=False
Next 番号

' 選択したシートを印刷
'ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut

' 印刷用シートを削除
Application.DisplayAlerts = False
For 番号 = a To n
    Sheets("差し込み印刷" & 番号).Delete
Next 番号
Application.DisplayAlerts = True

Comments

[k_shin]

早速の回答、ありがとうございます。

なるほど、その手がありましたか……圧巻されました。
正常に動き、結果も思っていたのと同じものでしたので、BAにさせていただきます。

本当にありがとうございました！！助かりました！！