套用doc模板生成文件,然后转pdf 总是会提示:RPC 服务器不可用 有没有办法避免呢?不然总是导致服务端假死
当前代码如下:
Dim cmd As SQLCommand =“”
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim tm As String = ProjectPath & "Attachments\证.1doc" '指定模板文件
Dim f1 As String = ProjectPath & "Reports\证1"& e.Values("创建人") & e.Values("guid") & time &".doc" '指定目标文件
Dim f2 As String = ProjectPath & "Reports\证1"& e.Values("创建人") & e.Values("guid") & time &".pdf" '指定目标PDF文件
Dim wrt As New WordReport(tm,f1)
wrt.AddDataTable("证1","主数据源","Sele ct * fro m {证1} where guid = '" & e.Values("guid") & "' ")
wrt.Build()
wrt.SaveToPDF(f2) '保存为PDF文件
wrt.Quit() '退出
[此贴子已经被作者于2022/7/9 11:10:58编辑过]