RT，用以下代码，会报运行错误（“导出失败，因为此功能尚未安装。”）Ps:我安装的Adobe Reader XI
If Tables("数据字典").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("数据字典").Current.DataRow
Dim tm As String = ProjectPath & dr("_Identify") & ".doc"
If dr.SQLLoadFile("文件",tm) Then '如果提取文件成功
Dim fl1 As String = ProjectPath & "Reports\方案申请.doc" '指定目标文件
Dim fl2 As String = ProjectPath & "Reports\方案申请.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("数据字典"),tm,fl1) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start()
End If
加好友 
发短信
Post By：2014/10/15 9:51:00 [只看该作者]
