Необходимо распечатать документ Word, сформированный в VB.
Проблема в том, что печатать его необходимо на конкретном принтере, а не на принтере по умолчанию.

Если втупую использовать
appWord.PrintOut, то печать уйдет на дефалтовый принтер.

Если указать
appWord.ActivePrinter = sMyPrinter
appWord.PrintOut, то принтер sMyPrinter сделается принтером по умолчанию и на него отправится печать.

Есть ли какой-то способ отправить на печать из Ворда на конкретный принтер?

Вариант переобозначать дефалтовый принтер перед печатью и возвращать его после печати не подойдет по ряду причин.

Спасибо!!!

ЗЫ: MSWord 2003, VB6

Подстава:)

Дело в том, что на переознаение дефалтового принтера уходит время, пол секунды.
В итоге печать одного документа занимает не пол секунды, а 2 секунды где-то.
Но! Задача - печатать большой пул документов потоком. И при 200 документах печать занимает не пару минут, а 7-8 минут.
А ведь эти объемы не предел...

Вот и получается, что надо оптимизировать.

Делать принтер по умолчанию дургим ПЕРЕД отправкой всего потока как-то не хочется: мало ли какие-то сбои произойдут и принтер не вернется обратно на дефалтовый... Пользователи не догадаются сами переключить (да и я сам б тоже не догадался:) )

Вот так, как-то....

Ларчик-то просто открывался:)

wrkAppl.WordBasic.FilePrintSetup Printer:=sMyPrinter, DoNotSetAsSysDefault:=1
wrkObj.PrintOut (True)

Проверил, работает.

Елы зеленые, вот что значит знать VBA...


Тема закрыта.