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

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
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,228
Messages
6,170,875
Members
452,363
Latest member
merico17

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