以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119938)
--  作者：有点甜
--  发布时间：2018/6/4 15:06:00
--  

参考

 

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

 
--  作者：有点甜
--  发布时间：2018/6/4 15:15:00
--  
说明你模板设置有问题。必须是关联表，才能打印两个表。
--  作者：有点甜
--  发布时间：2018/6/4 16:14:00
--  

改成用标签，或者vars变量赋值

 

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

 

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

 

用代码赋值以后，再生成。
--  作者：有点甜
--  发布时间：2018/6/4 16:41:00
--  

模板设置 [!今天内容]

 

然后代码，在打印之前，赋值，如

 

vars("今天内容") = e.form.controls("TextBox1").Text
--  作者：有点甜
--  发布时间：2018/6/5 8:51:00
--  

模板设置 [!今天内容]

 

然后代码，在打印之前，赋值，如

 

vars("今天内容") = e.form.controls("TextBox1").Text
--  作者：有点甜
--  发布时间：2018/6/5 11:12:00
--  

汗.....红色代码改成对应的控件名称啊

 

vars("填写人") = e.form.controls("TextBox1").Text
vars("计划日期") = e.form.controls("TextBox2").Text
--  作者：有点甜
--  发布时间：2018/6/5 15:54:00
--  

1、贴出你写的代码；

 

2、加入msgbox，定位出错代码的位置。
--  作者：有点甜
--  发布时间：2018/6/5 16:11:00
--  
以下是引用nuoyan88在2018/6/5 16:02:00的发言：
老师，是发布之后把项目发送到别人的电脑上使用时无法调用模版，在我电脑上不受影响

 

发布后，发给别人的时候，把Attachments文件夹带上了没有？别人的电脑上有没有xls文件？

 

如果xls存在，那加入msgbox调试一下。
--  作者：有点甜
--  发布时间：2018/6/5 16:54:00
--  

可以，打印参考代码

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
App.Visible = True
Ws.PrintPreview
App.Quit
 

 

上面是打印预览，直接打印，改成

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
Ws.PrintOut
App.Quit
--  作者：有点甜
--  发布时间：2018/6/5 17:24:00
--  
把左边的 <工作记录总表> 删除，再测试