主题：窗口中打开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 & "秒")

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

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 & "秒")