Office中国论坛/Access中国论坛

标题: 从ACCESS中打印WORD文档 [打印本页]

---

作者: mingxuan1313    时间: 2012-6-13 11:46
标题: 从ACCESS中打印WORD文档
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，会等打完之后再关闭。
[attach]49341[/attach]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3