Отключение диалогового окна выбора принтера при печати докум

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Отключение диалогового окна выбора принтера при печати докум (Макросы/Sub)

Lookas

Дата: Четверг, 16.11.2017, 12:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

При написании макроса по печати документов WORD из папки столкнулся с тем,
что после печати каждого документа у заказчика всплывает окно "печать" с выбором принтера и настройками печати.
И следующий документ не уйдет на печать пока не будет нажат ОК.
Не могу сообразить, как избежать появления этого окна,
а распечатать все вообще без вмешательства пользователя.
На моем компе все работает без проблем. Но у меня доступен только один принтер.
У тех же кто будет пользоваться доступны 2-3.

Ниже код (собранный с примеров в сети)))

Заранее спасибо за помощь.

[code]
[vba]

код

Sub Print_doc_Claims()

Dim owdDoc As Object

Dim owdApp As Object

Dim sFIO As String

Dim oRng As Range

Dim sFolder As String

Dim sFiles As String

Dim path As String

Set owdApp = CreateObject("Word.Application")

owdApp.Visible = True

sFolder = "Путь к папке"

Application.ScreenUpdating = False

Application.DisplayAlerts = False

sFiles = Dir(sFolder & "*.docx*")

Do While sFiles <> ""

path = sFolder + sFiles

Set owdDoc = owdApp.Documents.Open(path)

owdApp.Application.ActivePrinter = "Имя принтера с которого планирую печатать."

owdDoc.PrintOut Copies:=1

owdDoc.Close

sFiles = Dir()

Loop

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

[/vba]
[code/]