title: How to select a specific printer and select color printing
body: <p>I have an Excel VBA macro that tries to print in color but it only prints in black and white. </p>
  
  <p>I have tried two methods but failed.</p>
  
  <p>Method 1:  ActiveSheet.PageSetup.BlackAndWhite = False. This code doesn't seem to work in my environment. I am also not allowed to add another printer queue that is in color.</p>
  
  <p>Method 2:  Application.Dialogs(xlDialogPrinterSetup).Show. I can bring up a list of printers in my environment using this code but don't know how to select the correct printer and select color. </p>
  
  <pre><code>ActiveSheet.PageSetup.BlackAndWhite = False
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\printer\printer1", Collate:=True, _
          IgnorePrintAreas:=False
      Sheets("REPORT").Select
  </code></pre>
  
  <p>Would like to print in color either by expanding on either of the 2 methods I've provided.</p>