按钮代码：
Dim dr As Row = Tables("会议纪要").Current
Dim fl As String = ProjectPath & "Attachments\用户工程\" & dr("工程名称") & "\" & dr("会议名称") & "\" & "P" & dr("会议编号") & dr("会议名称") & ".doc" '指定目标文件
Dim pd As String = ProjectPath & "Attachments\用户工程\" & dr("工程名称") & "\" & dr("会议名称") & "\" & "P" & dr("会议编号") & dr("会议名称") & ".pdf" '指定目标文件
Dim app As New MSWord.Application
try
Dim fileName = fl
app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat(pd, MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
Catch ex As Exception
msgbox(ex.message)
finally
app.Quit
End try
为什么为弹出下面框
此主题相关图片如下：dddd.png
[此贴子已经被作者于2018/4/7 23:25:10编辑过]
加好友 
发短信
Post By：2018/4/7 23:24:00 [显示全部帖子]
