Set Printer name and Setting in Macro

Great,

Based on what you wrote, I made this:

Option Explicit
Sub SelectPrinter()
    Dim sNewPrinter As String

    sNewPrinter = ActivePrinter
    ActivePrinter = "XXXXXWestOffice on XXX-XX-001.office.XXXXXsmfg.com"
    Sub MacroPint3()
    On Error Resume Next
    
    Call Prt_001
    Call Prt_002
    Call Prt_003
    Call Prt_004
    Call Prt_005
    Call Prt_006
    Call Prt_007
    Call Prt_008
    Call Prt_009
End Sub

Sub Prt_001()
  With Worksheets("Pnch, Asy, Oth, Mach SchedRsc").PivotTables("PivotTable2")
        .PivotFields("SchedGroup").ClearAllFilters
        .PivotFields("SchedGroup").CurrentPage = "Assembly"
        .PivotFields("Rsc").ClearAllFilters
        .PivotFields("Rsc").CurrentPage = "(All)"
         Application.PrintOut Filename:=""                             '<--- NEW
        .Parent.PrintOut Options.PrintDraft = False                    '<--- NEW
  End With
End Sub

Sub Prt_002()
  With Worksheets("Brk SchedPrimeRq").PivotTables("PivotTable1").PivotFields("SchedGroup")
    .ClearAllFilters
    .CurrentPage = "Brake"
    Application.PrintOut Filename:=""                              '<--- NEW
    .Parent.Parent.PrintOut Options.PrintDraft = False             '<--- NEW
  End With
End Sub

Sub Prt_003()
  Dim vs            As Variant
  With Worksheets("Asy,Lsr,HW,WD,SW,PC SchedRqList").PivotTables("PivotTable2").PivotFields("SchedGroup")
    For Each vs In Array("Powder", "SpotWeld", "Weld", "Hardware", "LASER")
      .ClearAllFilters
      .CurrentPage = vs
    Application.PrintOut Filename:=""                              '<--- NEW
      .Parent.Parent.PrintOut From:=1, To:=3, Copies:=1
      Options.PrintDraft = False                                    '<--- NEW
    Next vs
  End With
End Sub

How would I specify in printer Setting Job Type: Normal Print

Thanks,
Yuriy