vba get in combobox all printers list

nd0911

Board Regular
Joined
Jan 1, 2014
Messages
166
hi

can I get a code that return all printers in a combobox or listbox ?

TNX
 

Excel Facts

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.
You did not say what kind of ListBox you had or where it was located, so I have given you code for all three possibilities...
Code:
[table="width: 500"]
[tr]
	[td][COLOR="#008000"]'Forms Control ListBox on the active sheet
'------------------------------------------------------------------------[/COLOR]
Sub PrintersToFormsListBox()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ActiveSheet.Shapes("List Box 1").ControlFormat.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
Code:
[table="width: 500"]
[tr]
	[td][COLOR="#008000"]'ActiveX Control ListBox on the active sheet
'------------------------------------------------------------------------[/COLOR]
Sub PrintersToActiveXListBox()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ActiveSheet.ListBox1.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
Code:
[table="width: 500"]
[tr]
	[td]
[COLOR="#008000"]'ListBox on a UserForm and assumes
'CommandButton1 loads the ListBox 
'------------------------------------------------------------------------[/COLOR]
Private Sub CommandButton1_Click()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ListBox1.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
 
Upvote 0
hello again Rick

I have a littel problem with the code becouse when I choose then the printer from the listbox and click Ok I add a line of code :

application.activeprinter = listbox.value

but I get a run time 1004 error

do you know what should I do ?

thank you !
 
Upvote 0
hello again Rick

I have a littel problem with the code becouse when I choose then the printer from the listbox and click Ok I add a line of code :

application.activeprinter = listbox.value

but I get a run time 1004 error

do you know what should I do ?
So you are showing the printer list in order to let the user set the active printer, correct? If so, do you absolutely have to use a UserForm to do it? I ask because Excel's VBA has a dialog box you can popup and let the user set the active printer from there... it takes just one line of code to do it.

Application.Dialogs(xlDialogPrinterSetup).Show
 
Upvote 0
hello Rick,

thank you for your quick answer, I know all about Application.Dialogs(xlDialogPrinterSetup).Show
but I need it with the listbox method...


 
Upvote 0
So you are showing the printer list in order to let the user set the active printer, correct? If so, do you absolutely have to use a UserForm to do it? I ask because Excel's VBA has a dialog box you can popup and let the user set the active printer from there... it takes just one line of code to do it.

Application.Dialogs(xlDialogPrinterSetup).Show
Hi
You did not say what kind of ListBox you had or where it was located, so I have given you code for all three possibilities...
Code:
[table="width: 500"]
[tr]
    [td][COLOR="#008000"]'Forms Control ListBox on the active sheet
'------------------------------------------------------------------------[/COLOR]
Sub PrintersToFormsListBox()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ActiveSheet.Shapes("List Box 1").ControlFormat.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
Code:
[table="width: 500"]
[tr]
    [td][COLOR="#008000"]'ActiveX Control ListBox on the active sheet
'------------------------------------------------------------------------[/COLOR]
Sub PrintersToActiveXListBox()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ActiveSheet.ListBox1.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
Code:
[table="width: 500"]
[tr]
    [td]
[COLOR="#008000"]'ListBox on a UserForm and assumes
'CommandButton1 loads the ListBox
'------------------------------------------------------------------------[/COLOR]
Private Sub CommandButton1_Click()
  Dim X As Long, Printers As Object, arrPrinters As Variant
  With CreateObject("WScript.Network")
    For X = 1 To .EnumPrinterConnections.Count Step 2
      ListBox1.AddItem .EnumPrinterConnections(X)
    Next
  End With
End Sub[/td]
[/tr]
[/table]
Hi Rick, this was wonderful for what I needed; however, I'm wondering is there's a way to get the ports in the list as well?
 
Upvote 0

Forum statistics

Threads
1,223,991
Messages
6,175,820
Members
452,672
Latest member
missbanana

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top