You can change the active printer as follows;

oWordApp.ActivePrinter = getprinter() && or you could use the Common Dialog control to return a selected printer.

The ActivePrinter is a property of the Application object not the document object.

Hope this helps.