以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用Excel模版打印标签,如何直接用按钮控制打印？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32988)
--  作者：晕了快扶我
--  发布时间：2013/5/11 14:15:00
--  用Excel模版打印标签,如何直接用按钮控制打印？
RT，即不需要打开Excel，直接选择打印份数后打印
--  作者：Bin
--  发布时间：2013/5/11 14:20:00
--  
这个能否帮到你http://www.foxtable.com/help/topics/0554.htm
--  作者：晕了快扶我
--  发布时间：2013/5/11 14:24:00
--  
以下是引用Bin在2013-5-11 14:20:00的发言：
这个能否帮到你http://www.foxtable.com/help/topics/0554.htm

还是不太明白,比如

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

这样子的代码，我如何指定打印份数，然后直接打印，标红的是打开工作簿，然后到EXCEL里去打印，这样麻烦，效率很低
--  作者：sloyy
--  发布时间：2013/5/11 21:50:00
--  
既然用了模板,只能用这种办法打印
--  作者：狐狸爸爸
--  发布时间：2013/5/13 11:29:00
--  

打印三份：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
For i As integer = 1 to 3
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl

    Proc.Verb = "Print"
    Proc.Start()

Next
--  作者：晕了快扶我
--  发布时间：2013/5/13 12:22:00
--  
谢谢狐爸