Как вывести на печать документ Word

[prizzrak]

Прошу помощи у знатаков.
Ситуация такая: Есть файл excel в котором мы заполняем калькуляцию, автоматом заполняются квитанции на другом листе. Есть простенький макрос который закреплен за кнопкой, который выводит на печать эти квитанции и калькуляции нужное количество и нужного вида.
Как дополнение создан файл Wodr со связями с вышеуказанным файлом, в котором происходит заполнение договора (ФИО, адрес, суммы...).
Печатать договор сейчас приходится отдельно, открыв файл word, нажав "Да" на вопрос "обновить связи или нет" и потом печатать готовый договор.
Вопрос: Можно ли в excel создать макрос который, пусть так же при нажатии на кнопку, сам откроет этот файл word, обновит связи и напечатает два экземпляра договора, сохранит файл с именем {ФИО} и закроет файл?
В идеале можно эти два макроса "объеденить", и закрепить за кнопкой "Печать пакета документов".

[EducatedFool]

Вопрос: Можно ли в excel создать макрос который, пусть так же при нажатии на кнопку, сам откроет этот файл word, обновит связи и напечатает два экземпляра договора, сохранит файл с именем {ФИО} и закроет файл?

Да, такой макрос сделать можно.
Всего 10-15 строк кода.

Но его никто не напишет, пока Вы подробно не распишите, где макрос должен искать файл Word, как называется этот файл, в какой папке сохранять файл с именем {ФИО} (и где брать это ФИО), закрывать файл с сохранением, или нет, и т.д.
Лучше, если будут примеры файлов Excel и Word.

[viter.alex]

Дождемся ли ответа от призрака?

[prizzrak]

Прошу прощения за трехжневное молчание, необходимые файлы были на работе, а в выходные как известно, там делать нечего...

Внутри архива есть текстовый файл где я постарался пояснить ситуацию как можно подробнее...

[prizzrak]

Хотелось бы услышать мнение знатаков....
выполнима ли такая задача или лучше оставить как есть?

[viter.alex]

Задача выполнима. Например, так

Sub PrintDoc()
  Dim owdDoc As Object
  Dim owdApp As Object
  Dim sFIO As String
  Dim oRng As Range
  
  'Создаем новое приложение Word
  Set owdApp = CreateObject("Word.Application")
  'Делаем его видимым
  owdApp.Visible = True
  'Открываем документ, который лежит в одной папке с файлом Excel
  Set owdDoc = owdApp.Documents.Open(ThisWorkbook.Path & "\" & "Договор.doc")
  'Обновляем поля
  owdDoc.Fields.Update
  'Печатаем две копии
  owdDoc.PrintOut Copies:=2
  'Ищем где на третьем листе находятся инициалы
  Set oRng = ThisWorkbook.Sheets("Данные для договора").Range.Find("ФИО")
  sFIO = oRng.Next.Text
  'Сохраняем документ
  owdDoc.SaveAs ThisWorkbook.Path & "\" & DIRNAME & sFIO & ".doc"
  'Закрываем документ
  owdDoc.Close
  'Сохраняем книгу
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & DIRNAME & sFIO & ".xls"
  Set owdApp = Nothing
  Set owdDoc = Nothing
End Sub

Залезть в свойства принтера не представляет возможным. Придется вам сначала установить параметры принтера, а затем уже запускать макрос для печати.

[prizzrak]

Спасибо, завтра буду буду пробовать....

А по поводу качества печати возник вопрос...
Если в word-е написать макрос для печати нужного количества, качества ( он пишется рекордером word, проверял..), а потом из excel-я открыть файл word, обновить связи и .. выполнить существующий макрос??
или я гоню?

[viter.alex]

Ну-ка приведите мне макрос, да еще записаный макрорекордером, где можно установить свойства принтера. Любопытно глянуть.

[prizzrak]

в файле excel, который находится в представленом мной архиве.
Макрос закреплен за кнопкой справа, печатает два первых листа и один второй, качество печати-черновое. (по тому как принтер печатает, можно определить печатает он в обычном режиме или черновом)..

[prizzrak]

хотя судя по коду... ничего такого там нет..
возможно я ошибаюсь...
может это свойство печати идет по умолчанию??