Summary
When you use the ActivePrinter property in Microsoft Office Word to set the current printer, you also set the printer you select to be the default printer for the system. If you do not want to change the setting for the default system printer, do not use the ActivePrinter property.
More Information
To select a new printer without having Word change the default system printer, use the WordBasic FilePrintSetup method with the DoNotSetAsSysDefault flag set to True. For example, instead of using the following code:
Set oWord = CreateObject("Word.Application")
oWord.ActivePrinter = "HP LaserJet 4 on LPT2"
Use the following code.
Set oWord = CreateObject("Word.Application")
oWord.WordBasic.FilePrintSetup Printer:="HP LaserJet 4 on LPT2", _ DoNotSetAsSysDefault:=1
References
For more information about the ActivePrinter property, click the following article numbers to view the articles in the Microsoft Knowledge Base:
162239 Sample code to retrieve the name of the active printer
177275 How to create a macro to change printer or fax driver