Dim objWord As Word.Application Dim objWrdDoc As Word.Document Private Sub btnOpenWord_Click() Set objWord = CreateObject("Word.Application") Set objWrdDoc = objWord.Documents.Open(App.Path & "\test.doc") objWord.Visible = False objWord.PrintOut End Sub運行前要先引用Microsoft Word 10.0 Object Library
Dim objWrdDoc As Word.Document
Private Sub btnOpenWord_Click()
Set objWord = CreateObject("Word.Application")
Set objWrdDoc = objWord.Documents.Open(App.Path & "\test.doc")
objWord.Visible = False
objWord.PrintOut
End Sub運行前要先引用Microsoft Word 10.0 Object Library