J'utiliserais
Application.ActivePrinter="nomimprimantecommedanspanneauconfiguration"

ESVBA