＋设为首页 ＋添加到收藏夹
用VB调用的WORD的打印预览功能时，好像一定要先Add一个文档然后再调用打印预览，这样一来，当关闭打印预览功能时，文档窗口还是显示的，要手动再关闭一下，能不能在关闭打印预览的同时，关掉相应的文档窗口？
源码如下：
Dim WordTemps As New Word.Application
WordTemps.Documents.Add App.Path + "\templates\安全活动.doc", False
WordTemps.Selection.GoTo wdGoToBookmark, , , "年月日"
WordTemps.Selection.TypeText Format(dtpClassDate.Value, "yyyy年MM月dd日")
WordTemps.Selection.GoTo wdGoToBookmark, , , "举办部门"
WordTemps.Selection.TypeText ResolveDisplayEx(cboUnit.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "活动地点"
WordTemps.Selection.TypeText Trim(txtAddress.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "主持人"
WordTemps.Selection.TypeText Trim(txtHoldPeople.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "参加对象"
WordTemps.Selection.TypeText Trim(txtAttachPeople.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "记录人"
WordTemps.Selection.TypeText Trim(txtWriter.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "主要内容"
WordTemps.Selection.TypeText Trim(txtClassText.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "实到人数"
WordTemps.Selection.TypeText Val(txtActNums.Text)
WordTemps.Selection.GoTo wdGoToBookmark, , , "缺席人数"
WordTemps.Selection.TypeText Val(txtAbsent.Text)
WordTemps.Visible = True
WordTemps.PrintPreview = True
可以弄个计时器判断一下当前状态
