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，会等打完之后再关闭。