Обзор
При использовании свойства принтер по умолчанию в Microsoft Office Word для задания текущего принтера также установить принтер в качестве принтера по умолчанию для системы. Если вы не хотите изменить параметр для системный принтер по умолчанию, не используйте свойство принтер по умолчанию.
Дополнительные сведения
Чтобы выбрать новый принтер без необходимости изменять системный принтер по умолчанию Word, используйте метод WordBasic FilePrintSetup с установленным флагом DoNotSetAsSysDefault значение True. Например, вместо использования следующего кода:
Set oWord = CreateObject("Word.Application")
oWord.ActivePrinter = "HP LaserJet 4 on LPT2"
Используйте следующий код.
Set oWord = CreateObject("Word.Application")
oWord.WordBasic.FilePrintSetup Printer:="HP LaserJet 4 on LPT2", _
DoNotSetAsSysDefault:=1
Ссылки
Дополнительные сведения о свойстве, принтер по умолчанию щелкните следующий номер статьи базы знаний Майкрософт:
Пример кода 162239 для извлечения имени активного принтера
177275 как создать макрос для изменения принтера или драйвер факса
