no problem, someday i hope to know half as much as you.

--


Gary


"Tom Ogilvy" wrote in message
...
Yes, thanks for picking up on that typo. Hopefully the OP already has.

Not sure that argument is even necessary, however - should have gone with my
first inclination and deleted it.

--
Regards,
Tom Ogilvy

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
tom, there's a typo, a missing " around the colon s & :",

Sub PrintSheets()

ThisWorkbook.Worksheets("01_NetRev").PrintOut Copies:=1, Collate:=True
For i = 0 To 9
s = Format(i, "00")
On Error Resume Next
Application.ActivePrinter = "PDFCreator on Ne" & s & ":"
ThisWorkbook.Worksheets("01_NetRev").PrintOut Copies:=1, _
ActivePrinter:="PDFCreator on Ne" & s & ":", Collate:=True
If Err.Number = 0 Then Exit For
On Error GoTo 0
Next
End Sub

--


Gary


"Tom Ogilvy" wrote in message
...
Sub PrintSheets()

ThisWorkbook.Worksheets("01_NetRev").PrintOut Copies:=1,
Collate:=True
for i = 0 to 9
s = format(i,"00")
On Error Resume Next
Application.ActivePrinter = "PDFCreator on Ne" & s & ":"
ThisWorkbook.Worksheets("01_NetRev").PrintOut _
Copies:=1,
ActivePrinter:="PDFCreator on Ne" & s & :", _
Collate:=True
if err.Number = 0 then exit for
On Error goto 0
Next

End Sub

--
Regards,
Tom Ogilvy

"ricowyder" wrote:

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