Выбор принтера для печати по фрагменту имени

Dim s
s = Application.ActivePrinter
 
ActivePrinter = Ch_label.cmbxPrint.Value
 
objDoc98.PrintOut
 
ActivePrinter = s
End If

Dim p As Printer
For Each p In Application.Printers
    If p.DeviceName Like ПеременнаяПоисковогоШаблона & "*" Then <Действия для выбранного принтера>
Next

Sub ПолучениеСпискаПринтеров_версия2(ПеременнаяПоисковогоШаблона )
    With CreateObject("Shell.Application").NameSpace(4).Items
        For n = 1 To .Count - 1
             if .Item(n).Name like ПеременнаяПоисковогоШаблона  & "*" then
                  'Здесь надо указать найденный принтер как активный
                  'Как это делается в Excel не знаю точно
                  Exit For  'выйти из цикла после удачного поиска
             End If
        Next
    End With
End Sub

Dim s, n
s = Application.ActivePrinter
    If Ch_label.cmbxPrint.Value <> "" Then
    
        With CreateObject("Shell.Application").Namespace(4).Items
            For n = 1 To .Count - 1
                 If .Item(n).Name Like Ch_label.cmbxPrint.Value & "*" Then
                      ActivePrinter = .Item(n).Name 'Здесь надо указать найденный принтер как активный
                      'Как это делается в Excel не знаю точно
                      objDoc98.PrintOut
                        ActivePrinter = s
                      
                      Exit For  'выйти из цикла после удачного поиска
                 End If
            Next
        End With
    End If

Private Sub UserForm_Initialize()
    cmbxPrint.Clear
    For Each printer In GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
       cmbxPrint.AddItem printer.Name
    Next
End Sub

dim printer

Private Sub UserForm_Initialize()
cmbxPrint.Clear
For Each printer In GetObject("winmgmts://./root/CIMV2").ExecQuery("SELECT * FROM Win32_Printer", , 48)
  If Not printer.local Then
    cmbxPrint.AddItem printer.Name
  End If
Next
End Sub

Sub PrintProc()
Dim s
Dim p As printer
 
    s = Application.ActivePrinter
   
            ActivePrinter = Ch_label.cmbxPrint.Value
            objDoc98.PrintOut
            ActivePrinter = s
 
End Sub

Private Sub UserForm_Initialize()
Dim OnePrinter As Object
Dim x As Long
For Each OnePrinter In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Printer")
    ListBox1.AddItem OnePrinter.name  & " Ne" & Format(x, "00")
    x = x + 1
Next
End Sub

Dim Arr               As Variant
   Dim Arr1()            As Variant
   Dim Device            As Variant
   Dim Devices           As Variant
   Dim msg               As String
   Dim RegObj            As Object
   Dim RegValue          As String
   Dim i As Long
   Const HKEY_CURRENT_USER = &H80000001
   Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   RegObj.enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Devices, Arr
   ReDim Arr1(1 To 1)
   For Each Device In Devices
   i = i + 1
    If i > 1 Then ReDim Preserve Arr1(1 To i)
      RegObj.getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Device, RegValue
      Arr1(i) = Device & " (" & Split(RegValue, ",")(1) & ")"
   Next
   Debug.Print Join(Arr1, vbCr)