To set the printer to something other than the default, use:

Set Printer = Printers(n)


To find the printer you're interested in, for the above, use:

For Each x In Printers
'compare x.DeviceName to the printername returned by the print dialog box
Next