Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 49|回复: 6

[已解决]下面代码如何设置指定打印机

[复制链接]
发表于 2021-9-15 11:07 | 显示全部楼层 |阅读模式
        With Sheets(1)
            .[c8:J13].ClearContents
            .[O1] = kh: .[B5] = kh: .[A44] = kh: .[A54] = kh: .[C86] = kh: .[n4] = dw: .[P1] = dh
            .[c8].Resize(n, 8) = brr
            '.[a2:K131].PrintPreview
            .[a2:K131].PrintOut

        End With
        Erase brr

.[a2:K131].PrintOut  后面怎么指定打印机

打印机不是默认打印机
打印机名:HP LaserJet M1005  

最佳答案
2021-9-15 11:30
光打印机名 是不够的

debug.print Application.ActivePrinter '得到打印机名(带端口信息)

dim 打印机1$
打印机1 = Application.ActivePrinter '当前打印机名称(带端口)
Application.ActivePrinter = 打印机1 '设定 为 当前打印机

设置打印机 用上面 得到的
字符串


参见
http://blog.sina.com.cn/s/blog_809ca6490102xglf.html
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2021-9-15 11:52 | 显示全部楼层
   Dim net
    Set net = CreateObject("WScript.Network")
    net.SetDefaultPrinter "HP LaserJet Professional M1213nf MFP"
   
    net.SetDefaultPrinter "GP-5830 Series"
回复

使用道具 举报

发表于 2021-9-15 11:30 | 显示全部楼层    本楼为最佳答案   
光打印机名 是不够的

debug.print Application.ActivePrinter '得到打印机名(带端口信息)

dim 打印机1$
打印机1 = Application.ActivePrinter '当前打印机名称(带端口)
Application.ActivePrinter = 打印机1 '设定 为 当前打印机

设置打印机 用上面 得到的
字符串


参见
http://blog.sina.com.cn/s/blog_809ca6490102xglf.html
回复

使用道具 举报

发表于 2021-9-15 11:34 | 显示全部楼层
默认打印机 是通过系统设置的,不是通过excel设置的
回复

使用道具 举报

 楼主| 发表于 2021-9-15 11:50 | 显示全部楼层
lisongmei 发表于 2021-9-15 11:34
默认打印机 是通过系统设置的,不是通过excel设置的

不设置默认打印机  但已经处理好了 还是感谢您的回复
回复

使用道具 举报

 楼主| 发表于 2021-9-15 11:50 | 显示全部楼层
砂海 发表于 2021-9-15 11:30
光打印机名 是不够的

debug.print Application.ActivePrinter '得到打印机名(带端口信息)

已经处理好了 还是感谢您的回复
回复

使用道具 举报

发表于 2021-9-15 11:54 | 显示全部楼层
lj3543711 发表于 2021-9-15 11:50
不设置默认打印机  但已经处理好了 还是感谢您的回复

嗯,只是选择打印机的话,楼上正解
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 19:54 , Processed in 0.265433 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表