VBA : changing the active printer takes a looong time

[dandion1]

I have a file with more than 600 sheets and I am using a macro to change the active printer : application.ActivePrinter="\\xxx on Ne01:". This single line of code may take up to 90 seconds to execute. Changing the active printer manually takes a second or two. Is there a way to speed up the changing of the active printer with vba??

Daniel