VBA change active printer generate Error 1004 with same print string connection

Question

I\'m trying to change my printer from VBA, but I get an error 1004 that I can\'t fix.

printToUse is the same ActivePrinter string co