As well as the solution already suggested, you can read the registry key at
:
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts

NickHK

"ricowyder" wrote in message
oups.com...
Dear group members,

I got a macro here, which is running smoothly and printing the
worksheets as I like... sounds perfect, but as my colleagues tried to
us it, too, we discovered a bug. Here is the code:

Sub PrintSheets()

ThisWorkbook.Worksheets("01_NetRev").PrintOut Copies:=1,
Collate:=True

Application.ActivePrinter = "PDFCreator on Ne00:"
ThisWorkbook.Worksheets("01_NetRev").PrintOut Copies:=1,
ActivePrinter:= _
"PDFCreator on Ne00:", Collate:=True


End Sub

PDF Creator has been installed on all our laptops. However, some users
have installed 2 printer, some 3, some even 4. Now as PDF Creator was
installed, its name became not Ne00, but 02 or 04...
Could you help me with this? The macro should actually check/find out,
if the Name is "PDFCreator on Ne00:", "PDFCreator on Ne01:",
"PDFCreator on Ne02:" ect.

Thanks a lot for your help.

Regards,

Rico