如何在excel服务器表单中利用VBA选择打印机

campion · 发表于 2010-4-24 16:59:40

向各位高手请教个打印机选择的问题，我的电脑中有两台打印机，一台是惠普和一台是爱普生票据打印机，默认的是惠普打印机，请问怎么可以用VBA使收发料单的打印通过单子中的按钮让它自动选择票据打印机打印。

fyhwzl888 · 发表于 2010-4-25 14:26:33

打印.rar (6.07 KB, 下载次数: 162)

tayoo · 发表于 2010-4-26 12:38:59

好东西,学习下

campion · 发表于 2010-4-26 15:56:36

能不能一点击打印按钮，自动选择爱普生票据打印机打印

fyhwzl888 · 发表于 2010-4-26 16:16:03

可以,你自己改一下就OK了.

Application.ActivePrinter = "EPSON DLQ-1000K 在 LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[ 本帖最后由 fyhwzl888 于 2010-4-26 16:33 编辑 ]

simon136 · 发表于 2010-4-28 08:47:26

高手。学习中。。。

campion · 发表于 2010-4-28 18:57:21

原帖由 fyhwzl888 于 2010-4-26 04:16 PM 发表
可以,你自己改一下就OK了.

Application.ActivePrinter = "EPSON DLQ-1000K 在 LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

补充一个问题，那就是怎么可以自动通过网络打印机打印

fyhwzl888 · 发表于 2010-4-28 19:32:41

无语了,
"EPSON DLQ-1000K 在 \\sss\EPSON"
假设网络打印机所在计算机名为SSS

应该结贴了吧

campion · 发表于 2010-4-29 09:06:00

原帖由 fyhwzl888 于 2010-4-28 07:32 PM 发表
无语了,
"EPSON DLQ-1000K 在 \\sss\EPSON"
假设网络打印机所在计算机名为SSS

应该结贴了吧

此图为网络打印机的信息
Private Sub CommandButton1_Click()
Application.ActivePrinter = "市场部票据打印机在 \\市场部-李康平\EPSON LQ-630K ESC/P2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
运用上面代码还是错误啊

[ 本帖最后由 campion 于 2010-4-29 09:10 编辑 ]

dahantianzi · 发表于 2010-4-29 09:15:25

计算机名支持中文吗？
还有/p2是什么东东？！

账号		自动登录	找回密码
密码			注册

在线客服

工作时间

热线电话

站长

[求助] 如何在excel服务器表单中利用VBA选择打印机

回复 4楼 campion 的帖子

回复 7楼 campion 的帖子

评分