内标签及外标签的设定指定打印机

lsqian

数据录入a2,d2单元格的数据录入后，点击内标签及外标签的打印功能实现打印，现在公司有3台打印机，打印机1（默认的打印机），打印机2和打印机3是非默认的打印机，我想将内标签打印设置为打印机2，外标签打印的打印机设置为打印机3，点击对应内外标签打印按钮实现打印。现在的问题是无法锁定打印机，它只识别默认的打印机1，请大神帮忙看看如何实现这个功能，谢谢！！
另外：打开文件的时候有点卡，不知道是否代码有问题，麻烦大神看看，谢谢！！！

砂海

搞个求助文件还上锁 ,
懒得看了 , Application.ActivePrinter 了解一下

lsqian

砂海 发表于 2019-12-16 21:24
搞个求助文件还上锁 ,
懒得看了 , Application.ActivePrinter 了解一下

不好意思,附件更新了,麻烦帮忙解决看看,谢谢

lsqian

砂海 发表于 2019-12-16 21:24
搞个求助文件还上锁 ,
懒得看了 , Application.ActivePrinter 了解一下

Application.ActivePrinter 使用没有作用,麻烦看看啥原因,谢谢

爱疯

Sub test()
    Dim p1, p2

    '控制面板\硬件和声音\设备和打印机，选择一个打印机，设置为默认打印机
    Debug.Print Application.ActivePrinter
    '记下立即窗口中的打印机名称
    p1 = "Brother MFC-7340 在 Ne02:"
    p2 = "Microsoft XPS Document Writer 在 Ne00:"

    ActiveSheet.PrintOut ActivePrinter:=p1
End Sub



p1和p2的值，是先在控制面板里手动指定打印机，再debug.print得到的。
试了改最后1句，会用p1或p2打印

lsqian

爱疯 发表于 2019-12-17 09:24
Sub test()
    Dim p1, p2

谢谢老大,可以使用啦,