Private Sub 命令0_Click()

Dim WkwordAs 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，會等打完之后再關(guān)閉。