Set Printer name and Setting in Macro

Hi,

I have a Macro that executes commands and prints right after.
Before I execute the macro, I need to go and change printer and printer settings.
Is there a way to include printer name and settings in the beginning of the macro before everything gets executed?

Printer Name: WestOffice on network1
Printer Properties:
Job Type
Normal Print
Color / Black and White
Color


Thanks,
Yuriy

.

Here is a resource from the Net :

Sub SelectPrinter()
	Dim sNewPrinter As String

	sNewPrinter = ActivePrinter
	ActivePrinter = "Enter the Windows name of the printer here"

	Application.PrintOut FileName:=""    '<--- This line would go somewhere further down in the sub when you are ready to print

	ActivePrinter = sNewPrinter
End Sub

This resource has a more descriptive macro and specifies B&W color printing :

https://windowssecrets.com/forums/sh...g-in-vba-macro


From MS: https://msdn.microsoft.com/en-us/vba...property-excel

Worksheets("Sheet1").PageSetup.BlackAndWhite = True

And ... you can always use the MACRO RECORDER while you go through the Print Setup routine. The resulting macro should be at least very close to what you are seeking.

Trust something here works for you.

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