- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，这样如何设置指定打印机打印？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20041)
-- 发布时间：2012/5/28 10:16:00
-- 求助，这样如何设置指定打印机打印？
Dim fl As String = ProjectPath & "打印\\托运单.xls"
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "print" \'指定动作
Proc.Start()
以上如何写代码来指定打印机打印呢？谢谢指点！
-- 发布时间：2012/5/28 11:19:00
--
这个没办法设置打印机。
-- 发布时间：2012/5/28 11:32:00
--
-- 发布时间：2012/5/28 11:46:00
--
用VBA
Dim fl As String = ProjectPath & "打印\\托运单.xls"
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(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory
Pro")
-- 发布时间：2012/5/28 13:54:00
--
多谢指点!OK!!