以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 指定打印机打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185202)
--  作者：薛翁
--  发布时间：2023/2/9 22:24:00
--  [求助] 指定打印机打印问题
我使用的Excel报表都是这样打印的：
Dim Proc As New Process
Proc.File = "D:\\Test.Xls"
Proc.Verb = "Print"
Proc.Start
电脑安装了针式和激光两台打印机。
程序运行时判断需单页打印时使用激光打印机，需复写打印时使用针式打印机。
有人告我使用VBA，我还没看懂。
程序判断后，如何在程序中实现指定打印机打印？

请赐教，谢谢！
--  作者：有点蓝
--  发布时间：2023/2/9 22:41:00
--  
参考：http://www.foxtable.com/webhelp/topics/2121.htm

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Test.Xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
App.DisplayAlerts = False
App.Visible = True
Ws.PrintOut(Preview:=False,ActivePrinter:="某某打印机")
App.Quit