從ACCESS中打印WORD文檔

mingxuan1313

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，會等打完之后再關閉。