以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么在原打印代码上添加指定打印机的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99346)
--  作者：muflash
--  发布时间：2017/4/17 18:13: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()
谢谢老师，请指教
需要指定的打印机名字：EPSON R330 Series
--  作者：有点色
--  发布时间：2017/4/17 18:16:00
--  

方法一：设置默认打印机

 

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

 

方法二：直接用vba的printout打印

 

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

 
--  作者：muflash
--  发布时间：2017/4/17 18:25:00
--  [求助]怎么在原打印代码上添加指定打印机的代码
谢谢老师的神速回复。
我刚刚开始学习，只能看懂一点点代码。不会写呀！我想指定的打印机不是默认打印机，老师能不能帮我写下代码学习下。
--  作者：有点色
--  发布时间：2017/4/17 21:09:00
--  

参考代码

 

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)
app.visible = True
ws.PrintPreview
\'Ws.PrintOut(ActivePrinter:="pdfFactory Pro")
app.quit