以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  生成Pdf文件并打开  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58301)

--  作者：lesliecheung912 --  发布时间：2014/10/15 9:51:00 --  生成Pdf文件并打开 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

--  作者：Bin --  发布时间：2014/10/15 9:59:00 --   尝试重新安装完整版OFFICE看看