If you are unsure of the list of available printers in excel you can find them by going to File, Print, then select the dropdown under Printer and all the names there are printers you can use.
Example
Sub Set_Active_Printer()
'Set Active printer
Application.ActivePrinter = FindPrinter("Microsoft Print to PDF")
'Will set "Microsoft Print to PDF" as active printer
End Sub