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

前提・実現したいこと

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

VBA
1' 印刷用シート用意
2For 番号 = a To n
3    Sheets("差し込み印刷").Copy Before:=Sheets("差し込み印刷")
4    Sheets(Sheets.Count - 1).Name = "差し込み印刷" & 番号
5    Sheets("差し込み印刷" & 番号).Range("B1").Value = 番号
6Next 番号
7
8' 印刷用シートを選択状態にする
9For 番号 = a To n
10    Sheets("差し込み印刷" & 番号).Select Replace:=False
11Next 番号
12
13' 選択したシートを印刷
14'ActiveWindow.SelectedSheets.PrintPreview
15ActiveWindow.SelectedSheets.PrintOut
16
17' 印刷用シートを削除
18Application.DisplayAlerts = False
19For 番号 = a To n
20    Sheets("差し込み印刷" & 番号).Delete
21Next 番号
22Application.DisplayAlerts = True
23