Печать документа word из excell

[Verbludov]

Приветствую!
Задача:
- данные из экселя вставляются в шаблон ворд по закладкам;
- после чего этот вордовский документ нужно распечатать.
делаю я это так:

Sub NEWактПечать()
Set WA = CreateObject("Word.Application")
WA.Visible = False
ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "templ/act.dot")
Set wd = WA.Documents.Add(ПутьШаблона): DoEvents
wd.Bookmarks.Item("ЗкНаимен").Range .InsertAfter Range("D4").Value
wd.Bookmarks.Item("ЗкАдр").Range.In sertAfter Range("E4").Value
wd.PrintOut: DoEvents
wd.Close False: WA.Quit False: DoEvents
End Sub

Проблема состоит в том, что на компах с семеркой все работает, на на компах с ХР не печатает. Шаблон открывает, подставляет, а печати нет

[EducatedFool]

В коде все нормально
Возможно, на Win7 не установлен корректно принтер,
или в Word назначен принтер по-умолчанию, отсутствующий в системе.

Если вручную любой документ Word из Win7 распечатать, нажав Ctrl + P, - работает?

[Verbludov]

Может быть ХР не успевала запустить печать. Добавил между печатью и закрытием небольшую задержку и все пошло.

wd.PrintOut: DoEvents
Application.Wait Time:=DateAdd("s", 1, Now)
wd.Close False: WA.Quit False: DoEvents

EducatedFool, спасибо за внимание!
Тему можно закрывать