Printer selection problem due to Ne-port numbering

Hello,

I have a macro which sents data to a printer. The printer has a certain 'Ne' port number. The problem is that this number (i.e. 'Ne03') sometimes changes . When that happens, the macro halts.

How can I bypass this problem?

Application.ActivePrinter = "HP Officejet J6400 series op Ne02:"


Many thanks in advance,


Jim van Zuijlen

The Netherlands

I don't know. It sometimes happens when a USB device is being connected to the PC, it than can happen that the Ne-port numbers changes on devices / printers.

The macro prints also to a PDF printer, so muliple printer-ports are being used in the code.

Hi Leith,
You mean Application.Dialogs(xlDialogPrint).Show
will the macro wait until user makes selection?

but the macro is used a lot, better would be automatic selection.

Rgts,
Jim

Thanks for the great piece of Code. Worked like a dream

Excellent, exactly what I needed.

Even 8 years later it has helped a lot. Thank you

This code has been a lifesaver and has worked perfectly... until today. It seems Microsoft have released an update that causes it to break on the line Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"). Now when I run it, I get the following error:

Please Login or Register  to view this content.

This is on Excel 2016.

Thank you - this was a brilliantly timesaving snippet.

Thank You very much, your code works perfect!

Excellent time-saving piece of code, thank you

I copied the "Get Printer Names and Ports Module Code" (posted 08-06-2017) into a new module as suggested then ran the FindPrinterTest() macro.

Thanks again

David Buist

oh nice, thankyou for this

Oh my god, it's 2018 and your code has saved me. Thank you!!

Originally Posted by Leith Ross

Hello yingcs,

You're welcome. Which code did you use, post 8 or 13 ?

Hell Leith,

Actually I use your code in VB6!, an old legacy program that my company is still using.
It works like a charm.

Now it is 2019 and Thank You Leith! This stuff never gets too old. Used code from post #8 in Excel 2003 under XP. Works great!

I used post #8 in excel 2007 with windows 10 and it works great. Thanks!

Thank you Leith Ross for both your code (#8 and #13).
#13 gave me an error in my system, and I want to contribute to the community. I'm not an expert so I don't know what I'm writing, but it works!! And maybe it helps for compatibily problems when you use your code in old and new notebooks with old and new versions of Windows and Office. I'm using Office 2003 with Windows10 64 bit.

Please Login or Register  to view this content.

I eliminated PrtSafe and LongPtr => Long and :

Please Login or Register  to view this content.

This works for me, I hope also for others. Bye,

Thank you Leith Ross!

How can i combine the altnernative from Arkadi with my code? I am struggling a bit how to understand and apply the aforementioned solutions.. :-(

I am also struggling with the NeXX numbers which seems different on both workstations we use for the same Zebra printer. I've managed to look up the NeXX numbers and applied it into the macro but it doesn't work for the second workstation since the NeXX number is different

Please Login or Register  to view this content.

Thank you so much, this is exactly what I needed to complete my project (used method from post #8)