Copy and paste the code into an excel visual basic module.
In the actual macro/code for doing the printing, make the following change:
Application.ActivePrinter = "Adobe PDF on Ne04:" 'or whatever Ne0 number it is
Application.ActivePrinter = FindPrinter("Adobe PDF") 'or whatever the name of the printer to use as the active printer
You can also use the FindPrinter function from the immediate window as well in order to find out the printer number by providing the name of the printer which can be found in the Devices and Printers section of Control Panel.