Print button help
Try something along these lines.
s = Application.ActivePrinter
for i = 1 to 9
err.clear
On error resume Next
Application.ActivePrinter = "Adobe PDF på Ne0" & i & ":"
if err.Number = 0 then exit for
On error goto 0
Next
On Error goto 0
ActiveSheet.Printout PrintToFile:=True, PrToFileName:="ABC.PDF"
Application.ActivePrinter = s
--
Regards,
Tom Ogilvy
"Calle" wrote in message
...
Noone?
|