- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- word报表打印之后出现这个对话框，如何处理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91805)
-- 发布时间：2016/10/19 14:08:00
-- word报表打印之后出现这个对话框，如何处理
Dim dr As Row = Tables("表A").Current
Dim app As New MSWord.Application
try
Dim fileName = ProjectPath & "Attachments\\" & dr("样品编号") & ".Doc"
app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat(ProjectPath & "Attachments\\" & dr("样品编号") & ".pdf", MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
catch ex As exception
msgbox(ex.message)
app.Quit
End try
使用以上代码或者进行一份word报表的打印，系统一定会出现如下的问题，请问如何处理？
此主题相关图片如下：飞信截图20161019140623.png
-- 发布时间：2016/10/19 15:10:00
--
在线等。。。。
-- 发布时间：2016/10/19 15:41:00
--
测试没有问题。打开任务管理器关闭所有的word进程。
如果word是在web控件打开的，先关闭web窗口