Dim v As String = "正在生成格式合同,请按""确定""开始后稍等几秒钟..."""
MessageBox.Show(v)
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() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = fl2
Proc.Start
请教一下,如果“租房合同样本”有多个,想用自动选择,在“合同明细”表中有A和B的标志列。
同时满足当前记录A列和B列的值,去自动引用模板。模板名称如果是"X1租房合同样本X2格式.doc"这X1和X2如何用通配符实现?X1和X2是A列和B列的值(字符型)
问一下下面三行代码如何写?
Dim tm As String = ProjectPath & "Attachments\租房合同样本.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\租房合同样本.doc" '指定目标文件
Dim fl2 As String = ProjectPath & "Reports\租房合同样本.pdf" '指定目标PDF文件