I had to change printers in a macro which outputted an Excel file as a
PDF file - here's a fragment of the code, for what it's worth:

my_printer = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="Adobe PDF on Ne02:", Collate:=True
Application.ActivePrinter = my_printer

Note the first and last line of the fragment, which you might want to
use in your code rather than explicitly setting the Kyocera printer.

Hope this helps.

Pete