主题：打印

参考

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

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

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

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

用代码赋值以后，再生成。

模板设置 [!今天内容]

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

vars("今天内容") = e.form.controls("TextBox1").Text

模板设置 [!今天内容]

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

vars("今天内容") = e.form.controls("TextBox1").Text

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

vars("填写人") = e.form.controls("TextBox1").Text
vars("计划日期") = e.form.controls("TextBox2").Text

1、贴出你写的代码；

2、加入msgbox，定位出错代码的位置。

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

如果xls存在，那加入msgbox调试一下。

可以，打印参考代码

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