Печать .doc файла

[MaZai]

Доброго всем времени суток.
Подскажите плиз, как из макроса Excel отправить на печать нужный *.doc файл, причём не отображая диалог печати.
За ранее благодарю всех отозвавшихся.

[EducatedFool]

Sub test()
    Filename = "C:\Documents and Settings\Администратор\Рабочий стол\имя_файла.doc"
    On Error Resume Next

    Dim wa As New Word.Application
    wa.Visible = True    ' если надо, чтобы word был видимым. Если не надо, то поставьте wa.Visible = False
    Dim wd As Word.Document

    Set wd = wa.Documents.Open(Filename)
    If Not wd Is Nothing Then    ' документ открылся
        wd.PrintOut ' вывод документа на печать
    End If

    wd.Close False    ' закрываем документ без сохранения
    wa.Quit False    'закрываем Word
    Set wd = Nothing: Set wa = Nothing
End Sub

Не забудьте установить в Excel-e ссылку на библиотеку Microsoft Word xx.0 Object Library , где xx - номер версии Word-a

[MaZai]

Сообщение от EducatedFool

Не забудьте установить в Excel-e ссылку на библиотеку Microsoft Word xx.0 Object Library , где xx - номер версии Word-a

Большое спасибо за ответ. Однако, был бы очень признателен за подсказку где и как это делается, а то с Excel-ем (точнее с программированием в нём) и VBA вообще сталкивался

[EducatedFool]

Чтобы поключить библиотеку:

Откройте окно редактора VBA (нажатием Alt + F11)
Далее - меню Tools - References...

В появившемся окне пролистайте список и найдите строку Microsoft Word xx.0 Object Library , где xx - номер версии Word-a

Поставьте галочку напротив этой строки и нажмите OK

D принципе, можно обойтись и без подключения библиотеки.
Для этого замените строки

Dim wa As New Word.Application
Dim wd As Word.Document

на

Set wa = CreateObject("Word.Application.8")

Чтобы получить больше информации, произведите поиск по ключевым словам CreateObject("Word.Application") или As New Word.Application