lvv85

В параметре Pages указываются номера листов в виде "2, 3" (для печати листов 2 и 3).

Sub PrintSelectedPages()
    Dim strPages As String

    strPages = strPages & IIf(CheckBox1.Value, IIf(strPages = "", "", ",") & "2", "")
    strPages = strPages & IIf(CheckBox2.Value, IIf(strPages = "", "", ",") & "3", "")
    
    If Not strPages = "" Then Application.PrintOut Range:=wdPrintRangeOfPages, Pages:=strPages
    
End Sub