Ho scritto il seguente codice per cambiare la stampante predefinita

Dim prnt As Printer
For Each prnt In Printers
MsgBox prnt.DeviceName
If InStr(LCase(prnt.DeviceName), "rightfax") > 0 Then Set defaultPrinter = prnt: Exit For
Next

ma non succede nulla: il sistema (NT) continua a mantenere la stampante originaria.
Chi mi sa dire come mai?!?!?!?!

Grazie.