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