печать документа word

[maksim_serg]

Доброго времени, уважаемые!
Ни как не могу найти ответа на один вопрос: как напечать определенную страницу документа word макросом excel.

Sub macros()
on error resume next
with createobject("word.application")
.documents.open("полный путь к файлу")
.printout ??????????????, copies:=3
.quit
end with
end sub

пробывал:
pages:="1" - печатает весь документ;
from:="1", to:="1" = печатает весь документ.

[alexvav]

а такое: Range:=wdPrintCurrentPage

[viter.alex]

Это распечатает текущую страницу, а если нужно определённую, тогда так:

Sub macros()
  On Error Resume Next
  Dim wdApp As Object
  Set wdApp = CreateObject("Word.Application")  
  With wdApp
    .Documents.Open("полный путь к файлу")
    .Printout Range:=4, _
              Copies:=3, _
              Pages:="номера страниц, которые нужно напечатать"
    .Quit
  End With
  'Ну и раз уж может возникнуть ошибка, то нужно её поймать
  If Err.Number <> 0 Then
    MsgBox "Возникла ошибка " & Err.Number & " " & Err.Description, vbCritical
    Err.Clear
  End If
End Sub