Finding out Printers

[Ad_B]

Hi Gurus!

Been a while since I posted on here, so hello again!

Basically, I need some code that gives the result of what printers are available to the user, and the'r directory's/ports

I know I can find them out manually by using a macro then "printing", but I don't want the user to have to do that.

I'm leaving my current job and leaving a simple system I have designed to be used by my colleagues. Any new staff will need to use this system and I need this code to generate the printer ports for them.

Hope this makes sense to some of you.

Cheers

 

[Trevor G]

Would something like this help without using API methods.

Good luck with the New Job.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> SetPrinter()<br>    <SPAN style="color:#00007F">Dim</SPAN> PrtName<br>     <br>    PrtName = Application.Dialogs(xlDialogPrinterSetup).Show<br>    <SPAN style="color:#00007F">If</SPAN> PrtName = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>     <br>    MsgBox ActivePrinter<br>     <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[Ad_B]

Thanks, thats great.

The code produces a window displaying the available printers. Can this be copied into a spreadsheet at all, as part of the code, rather than being displayed as a message box?

Thanks

 

[Trevor G]

Check this link out

http://support.microsoft.com/kb/q166008/

 

[Ad_B]

I'm not sure what that does - seems very advanced for me.

Just looked again at your previous suggestion and I think I may have not clearly stated what I want.

I currently have two printers I frequently use in the office:

\\ukclaprt001\HP9040-KLE on Ne03:
\\ukclaprt001\MFP9500-KLE on Ne04:

Each user will have \\ukclaprt001\HP9040-KLE and \\ukclaprt001\MFP9500-KLE, but the ports will be different, i.e. the Ne03 or Ne04. For example, one of the users has Ne02.

I hope this makes more sense Trevor.