此主题相关图片如下：微信截图_20170624071756.png
如图。求教：将输出作废的数据单据上显示“作废”,
Dim tm As String = ProjectPath & "Attachments\收款收据.doc" '指定模板文件
Dim sjd As String = ProjectPath & "Reports\收款收据.doc" '指定目标doc文件
Dim sjp As String = ProjectPath & "Reports\收款收据.pdf" '指定目标PDF文件
Dim wrt As New WordReport(Tables("收据签发表"),tm,sjd) '定义一个WordReport
wrt.ReplaceWithImage("[作废] = true","Attachments\作废.png ",100,50) 该段代码写不好，输出时不起作用！
wrt.Build() '逐行生成报表
wrt.SaveToPDF(sjp) '保存为PDF文件
wrt.Quit() '退出
Dim Proc As New Process '打开PDF文件
Proc.File = sjp
Proc.Start() '显示报表
[此贴子已经被作者于2017/6/24 7:41:57编辑过]
加好友 
发短信
Post By：2017/6/24 7:25:00 [只看该作者]
