以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表怎么设定打印机啊?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79170)

--  作者:jinzhengbe
--  发布时间:2015/12/25 14:36:00
--  excel报表怎么设定打印机啊?
 

打印我会了

打印机不会设置, 假如打印进 叫 aa

 

 

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()

[此贴子已经被作者于2015/12/25 14:36:52编辑过]

--  作者:大红袍
--  发布时间:2015/12/25 14:39:00
--  

下面代码可以设置默认打印机

 

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