
加好友 发短信
等级:超级版主
帖子:112364
积分:572076
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2016/9/14 10:26:00 [显示全部帖子]
Dim tm As String = ProjectPath & "报表模板\证件接收凭证.docx" '指定模板文件Dim fl As String = ProjectPath & "Reports\证件接收凭证.docx" '指定目标文件Dim wrt As New WordReport(Tables("缴证信息"),tm,fl) '定义一个WordReportwrt.Build() '逐行生成报表wrt.Print wrt.quit
|
|