K
Kirk P.
I'm fairly new at programming - I've successfully written this code, but I'd
like to set an Error Trap in the event the ActivePrinter cannot be found.
Can someone provide the code I would need to accomplish this? Thank you!
Sheets(Array("Cover", "Consol PL", "AMER PL", "EMEA PL", "INDO PL", "ASIA
PL", _
"ACTIVE PL", "gcs pl", "wrls pl", "wline pl", "aps pl", "hmwx pl", "other
adc pl", _
"Consol BS", "Amer BS", "EMEA BS", "Indo-pac BS", "Asia BS", "Other
BS")).Select
Application.ActivePrinter = "Acrobat Distiller on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller on Ne01:", Collate:=True
Sheets("Input").Select
like to set an Error Trap in the event the ActivePrinter cannot be found.
Can someone provide the code I would need to accomplish this? Thank you!
Sheets(Array("Cover", "Consol PL", "AMER PL", "EMEA PL", "INDO PL", "ASIA
PL", _
"ACTIVE PL", "gcs pl", "wrls pl", "wline pl", "aps pl", "hmwx pl", "other
adc pl", _
"Consol BS", "Amer BS", "EMEA BS", "Indo-pac BS", "Asia BS", "Other
BS")).Select
Application.ActivePrinter = "Acrobat Distiller on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller on Ne01:", Collate:=True
Sheets("Input").Select