以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求打印word模板代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113012)
--  作者：夏威夷果
--  发布时间：2018/1/6 23:48:00
--  求打印word模板代码
求助：点击窗体按钮直接打印word模板代码！
--  作者：有点甜
--  发布时间：2018/1/7 18:09:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2890.htm

 

直接打印，就这样写

 

Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
\'wrt.Show() \'显示报表
wrt.print
wrt.quit