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

lj3543711

        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

跳转到最佳答案楼层

lj3543711

   Dim net
    Set net = CreateObject("WScript.Network")
    net.SetDefaultPrinter "HP LaserJet Professional M1213nf MFP"
   
    net.SetDefaultPrinter "GP-5830 Series"

砂海

光打印机名 是不够的

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

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

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


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

lisongmei

默认打印机 是通过系统设置的，不是通过excel设置的

lj3543711

lisongmei 发表于 2021-9-15 11:34
默认打印机 是通过系统设置的，不是通过excel设置的

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

lj3543711

砂海 发表于 2021-9-15 11:30
光打印机名 是不够的

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

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

lisongmei

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

嗯，只是选择打印机的话，楼上正解