Dim oWord As Word.ApplicationSet oWord = GetObject(, "Word.application")
If oWord Is Nothing Then
Set oWord = GetObject("", "Word.Application")
End IfoWord.Documents.Add "选择的文件名称"
oWord.ActiveDocument.PrintOutoWord.Application.Quit
Set oWord = Nothing
If oWord Is Nothing Then
Set oWord = GetObject("", "Word.Application")
End IfoWord.Documents.Add "选择的文件名称"
oWord.ActiveDocument.PrintOutoWord.Application.Quit
Set oWord = Nothing
但是我知道打开一个WORD文件有时候很费时间的,打印动作会自动等到打开完成后才进行吗?