以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  指定打印机  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118706)
--  作者：hopestarxia
--  发布时间：2018/5/9 10:55:00
--  指定打印机
代码一：
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.Verb = "Print" \'指定动作
Proc.Start()

代码二：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\资产标签.xls")
Dim fl As String = ProjectPath & "Reports\\资产标签.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)
App.Visible = True
ShowAppWindow("资产标签",2)
Ws.PrintPreview
App.Quit

老师，想在以上两个代码中（一个为预览，一个为直接打印）加入指定的打印机LQ-635K,请问如何加入代码.
--  作者：有点甜
--  发布时间：2018/5/9 10:58:00
--  

1、可以设置默认打印机

 

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("打印机名")

 

2、只有printout可以设置打印机

 


  • PrintOut

    直接打印。如，Ws.PrintOut

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

    Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")
--  作者：chen37280600
--  发布时间：2018/5/9 11:04:00
--  
mark
--  作者：hopestarxia
--  发布时间：2018/5/9 11:50:00
--  
谢谢老师，这样也解决了问题。