Private Sub 命令0_Click()
Dim WkWord As New Word.Application
Dim WkDoc As Word.Document
Set WkDoc = WkWord.Application.Documents.Open("c:\my documents\文檔.doc")
WkDoc.PrintOut False
WkDoc.Close
WkWord.Quit
End Sub
在printout后面加上FLASE,會等打完之后再關閉。
Dim WkWord As New Word.Application
Dim WkDoc As Word.Document
Set WkDoc = WkWord.Application.Documents.Open("c:\my documents\文檔.doc")
WkDoc.PrintOut False
WkDoc.Close
WkWord.Quit
End Sub
在printout后面加上FLASE,會等打完之后再關閉。

