每次的文件名,尝试不同试试,如代码
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 & "秒")