以文本方式查看主题

-  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=124608)
--  作者：cd_tdh
--  发布时间：2018/9/10 15:27:00
--  窗口中打开PDF不显示

窗口中打开word转PDF报表经常不显示是怎么回事呢？

afterload代码如下：

Dim st As Date = Date.Now
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  =  ProjectPath &  "Attachments\\通知公告.doc" \'指定模板文件
Dim fl1 As String =  ProjectPath &  "Reports\\通知公告.doc" \'指定目标文件
Dim fl2 As String =  ProjectPath &  "Reports\\通知公告.pdf" \'指定目标PDF文件
Dim wrt As New WordReport(Tables("主窗口_Table3"),tm,fl1) \'定义一个WordReport
Dim r As Row = Tables("主窗口_Table3").Current
wrt.BuildOne(r)
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
wbr.AddRess = fl2

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
--  作者：有点甜
--  发布时间：2018/9/10 17:10:00
--  

每次的文件名，尝试不同试试，如代码

 

Dim st As Date = Date.Now
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  =  ProjectPath &  "Attachments\\通知公告.doc" \'指定模板文件
Dim fl1 As String =  ProjectPath &  "Reports\\通知公告.doc" \'指定目标文件
Dim fl2 As String =  ProjectPath &  "Reports\\通知公告" & Rand.Next(10000) & ".pdf" \'指定目标PDF文件
Dim wrt As New WordReport(Tables("主窗口_Table3"),tm,fl1) \'定义一个WordReport
Dim r As Row = Tables("主窗口_Table3").Current
wrt.BuildOne(r)
wrt.SaveToPDF(fl2) \'保存为PDF文件
wrt.Quit() \'退出
wbr.AddRess = fl2

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")