EXCEL打印机列表框显示默认打印机名称

yjwdjfqb

EXCEL打印机列表框显示默认打印机名称

1. Private Sub UserForm_Initialize()
   
2.     Dim i&, Ws As Object, ptn$, arr() As String, n&, m&
   
3.     '/////当前默认打印机
   
4.     Dim MyPrinter
   
5.     MyPrinter = Split(Application.ActivePrinter)(0)
   
6.     MsgBox "当前默认的打印机名称为：" & MyPrinter
   
7.     'MsgBox "当前默认的打印机名称为" & Excel.Application.ActivePrinter
   
8.     '/////当前默认打印机
   
9.     '/////当前电脑所有打印机列表
   
10.     Set Ws = CreateObject("wscript.network")
    
11.     n = Ws.EnumPrinterConnections.Count
    
12.     ReDim arr(1 To n / 2)
    
13.     For i = 1 To n - 1 Step 2
    
14.         ptn = Ws.EnumPrinterConnections.Item(i)  '打印机名称
    
15.         m = (i - 1) / 2 + 1
    
16.         arr(m) = ptn
    
17.     Next
    
18.     Me.打印机列表.List = Application.Transpose(arr)
    
19.     '/////当前电脑所有打印机列表
    
20. End Sub
    

复制代码

怎样启动窗体时，显示默认打印机名称
请老师们指点下，谢谢老师们了！

EXCEL打印机列表框.rar (18.98 KB, 下载次数: 15)

2024-3-1 10:47 上传

点击文件名下载附件

laterite

加一句就行了

tanglf188

直接用内置函数就行了：
dlgAnswer = Application.Dialogs(9).Show

yjwdjfqb

laterite 发表于 2024-3-1 13:50
加一句就行了

谢谢老师的帮助！！

nbtooyou

我的点击出现自己选择打印机，需要的话，

代码
       '弹出选择打印机
        Application.Dialogs(xlDialogPrinterSetup).Show