Dim wapp As Object
Dim wdoc As Object
Set wapp = CreateObject("Word.Application")
Set wdoc = wapp.Documents.Open("C:\temp\1.doc")
wdoc.PrintOut
wapp.Quit
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 53