ник: Егор
dim st as string
...
st = app.Dialogs(wdDialogFilePrint).Display 'появится диалоговое окно печати документа
If st = "-1" Then
печать документа
else
msgbox "не удалось напечатать"
endif
Кстаит, ти вопросы поднимались неодонократно на этом форуме, введите в поиск и посмотрите может еще че нить интересное найдете