蓝老师,这是生成PDF代码
Dim dr As Row = Tables("事件登记").Current
Dim f1 As String = ProjectPath & "Reports\文档资料\" & dr("事件ID") & dr("姓名") & "登记表.docx" '指定目标文件
Dim f2 As String = ProjectPath & "Reports\文档资料\" & dr("事件ID") & dr("姓名") & "登记表.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("事件登记"), f1, f2) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(f2) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = f2
Proc.Start()
已安装相关软件,下面提示,什么原因
.NET Framework 版本:4.0.30319.17929
Foxtable 版本:2022.5.26.2
错误所在事件:窗口,事件登记管理,Button02,Click
详细错误信息:
导出失败,因为此功能尚未安装。