[求助]利用word进行后台调用打印的问题

我用下面的代码实现后台调用并打印文档，可是我不知道怎么判断文档是否打印完毕
如果不加以判断像我这么写的话就会提示 word正在打印，如果退出会结束所有打印文档，是否退出


Set wordapp = CreateObject("Word.Application")
Set worddoc = wordapp.Documents.Open(App.Path & "\doc\1.doc")
worddoc.Printout
worddoc.Save
worddoc.Close
wordapp.Quit
Set worddoc = Nothing
Set wordapp = Nothing