以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求一段 用代码打开word和excel 模版编辑的，我不知道在哪里有，  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66072)
--  作者：a937775799
--  发布时间：2015/3/29 14:51:00
--  [求助]求一段 用代码打开word和excel 模版编辑的，我不知道在哪里有，
 [求助]求一段 用代码打开word和excel 模版编辑的，就是有快速导入列名的那个界面，我不知道在哪里有
--  作者：有点甜
--  发布时间：2015/3/29 15:01:00
--  

Syscmd.Table.ExcelReportManager()

 

Syscmd.Table.WordReportManager()

--  作者：a937775799
--  发布时间：2015/3/29 15:02:00
--  
 帮助中怎么没有啊
--  作者：有点甜
--  发布时间：2015/3/29 15:05:00
--  

http://www.foxtable.com/help/topics/1080.htm

 
--  作者：a937775799
--  发布时间：2015/3/29 15:13:00
--  
 谢谢
--  作者：a937775799
--  发布时间：2015/3/29 17:11:00
--  
 还有个问题 我想请教一下
1、 我打开模版只是为了编辑模版，模版编辑好了就没事
2、但是我只想 实现这样的效果 －－ 鼠标 右键点击 一个记录 ，弹出“快捷菜单”选择打印 就自动打印出来，不用看到和用生成报表，我只用在打印的之前，选择我要对应的模版，就自动打印相关的文件
这应该  怎么实现呢 我看帮助里面的 代码 好像都是要建立一个报表文件吧
[此贴子已经被作者于2015/3/29 17:13:29编辑过]
--  作者：有点甜
--  发布时间：2015/3/29 17:13:00
--  

 http://www.foxtable.com/help/topics/1145.htm

 
--  作者：有点甜
--  发布时间：2015/3/29 17:14:00
--  

 看7楼，直接打印的代码

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.printout
App.Quit

 
--  作者：a937775799
--  发布时间：2015/3/29 17:15:00
--  
 但是这个是excel的呢 word 可以吗
--  作者：有点甜
--  发布时间：2015/3/29 17:17:00
--  

 word的，参考

 

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.Preview()

wrt.Print()