主题：[讨论] 如何按EXCEL模板打印以后自动关闭？

我设计好了EXCEL打印模板文件和目标文件，可以正常执行。

只是菜单中的命令只是打开了目标文件，需要自已再点击EXCEL中的“打印”才能将EXCEL报表打印出来。

于是，我试了一下

Process 中对EXCEL文件的 print方法，也就是：
 

Dim Proc As New Process
Proc.File = "C:\目标文件.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()

结果发现，这样只是纯粹打印“目标文件”或“模板文件”，不能执行模板文件中设置好了的表达式等。

现在我希望：按“模板文件”中设置好了的表达式打印，并且发送打印机以后自动关闭“目标文件”。

Dim Book As New XLS.Book(ProjectPath & "Attachments\名称1.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\名称2.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

我提出这个问题的原因是：

1、我在系统菜单的代码中找不出  “打印输出--EXCEL报表--直接打印”的代码，一片空白啊!

那么我该如何在其他的地方用这个功能呢？无法移植啊!

2、而且，每一次使用这个系统菜单命令，都要求目标文件是关闭的----也就是说我每一次打印完毕了以后要手动关闭，才能进行下一次打印，这很不方便的。

此主题相关图片如下：未命名.jpg

Dim Book As New XLS.Book(ProjectPath & "Attachments\模板.xls") Book.Build() Book.Save(ProjectPath & "Reports\模板.xls") Dim Proc As New Process Proc.File = "c:\reports\test.xls" Proc.Verb= "Print" Proc.Start()

谢谢，这个问题已解决

希望将这个直接打印并关闭的代码写入帮助

因为，大部分情况下，用户是在EXCEL中调好的页面设置，一步到位地直接输出打印----打印固定格式的表格。

我都是从帮助中复制的。

哈哈，那就是我看帮助太快了!

这个代码里，关键是build

学习中

其实这个也有不好的地方,就是选择打印机问题,用如上代码,没有办法实现打印机选择.

您好,请问您怎么写得代码,可以直接打印模板?不用每次打开模板文件在点打印,谢谢