Populate a combobox with a list of printers found on the (devices/printers) window

[vladlock]

Hello everyone and thank you in advance for your help.
I am trying to come up with a way to populate a combobox in a userform with a list of the printers that are available to that computer. I am able to program in either office 10 or 13. All the codes that I have been able to find thus far on the internet have not worked for me for one reason or another. I am pretty new to the world of VBA programing and everything I know I have learned through trial and error and the internet. As a bonus question if there is a way to have a certain page in a workbook printed to the printer that is selected in the combobox that would be awsome.

[JapanDave]

Try this,
Make sure you name the combobox accordingly

Please Login or Register  to view this content.

[vladlock]

Dave, I get a runtime error 13 type mismatch error when I try and use your code. I narrowed it down to something in the with command. any idea what I might be doing wrong?

[JapanDave]

Where are you getting the error?

[vladlock]

I used the ' to cancel out lines and it loads with no errors except when I enable the with command. Granted there is no information in the combobox, but at least it loads the userform. It doesn't highlight any code lines like it does with normal errors.

[JapanDave]

I am not sure I follow. Where is the error occurring? What line?

And you do realize that you will need some code to assign the printer selected in the combobox to a variable.

[vladlock]

Thats just it. I am not sure what the exact line is that is causing the problem. When I paste your code into a new userform code and have a userform with a combobox I get that error. Since there is no line of code highlighted for the failure I used the single quote mark at the beginning of each line to "cancel" that line of code out of the program. When I cancel out the lines in your code that have to do with the "with" function, I get a userform with a blank combobox. When I remove the quote from the lines for the with function I get the error stated above.

[JapanDave]

My Bad, Drunk again and I forgot to assign the array.

Try this

Please Login or Register  to view this content.

[vladlock]

works great now thanks a ton man. been looking for an answer to this for a long time.

[JapanDave]

No worries.