以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]execl报表打印如何设置打印份数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107738)
--  作者：huwenguang2008
--  发布时间：2017/10/9 8:42:00
--  [求助]execl报表打印如何设置打印份数
如题，单张多份打印如何设置啊
--  作者：有点甜
--  发布时间：2017/10/9 8:47:00
--  
  • PrintOut

    直接打印。如，Ws.PrintOut

    该方法还可通过设置有关参数来控制打印，如下面的代码就是打印第1-10页，打印份数为3，打印前先预览，指定的打印机为"pdfFactory Pro"：

    Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")

 

使用vba打印excel http://www.foxtable.com/webhelp/scr/2121.htm

 
--  作者：huwenguang2008
--  发布时间：2017/10/9 8:52:00
--  
\'Functions.Execute("直接打印EXECL模板","物料条码标签")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Args(0) & ".xls")
Dim fl As String = ProjectPath & "Reports\\" & Args(0) & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作
Proc.Start()


上述代码，要一次打印100张，怎么添加代码
--  作者：有点甜
--  发布时间：2017/10/9 8:55:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Args(0) & ".xls")
Dim fl As String = ProjectPath & "Reports\\" & Args(0) & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut(Copies:=3)
app.quit

[此贴子已经被作者于2017/10/9 8:54:45编辑过]
--  作者：huwenguang2008
--  发布时间：2017/10/9 10:17:00
--  
谢谢，非常好用，如果要指定打印机要怎么弄啊
--  作者：有点甜
--  发布时间：2017/10/9 10:20:00
--  
以下是引用huwenguang2008在2017/10/9 10:17:00的发言：
谢谢，非常好用，如果要指定打印机要怎么弄啊

 

认认真真看看2楼。