请问如何用表中的一个单元格数据做为生成的文件名?
如何修改代码?
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("出库"),tm,fl1) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2)
'保存为PDF文件
wrt.Quit() '退出
wbr.AddRess = fl2