I did it.
I used this to select the printer then display the print and print preview dialog
It changes the active printer, then the command bar exe will show the correct printer i need.
Code:
t = Application.Dialogs(xlDialogPrint).Application
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")