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