Cambiare la stampante predefinita in NT

[andy67]

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.

[vonkranz]

If InStr(LCase(prnt.DeviceName), "rightfax") > 0 Then Set defaultPrinter = prnt: Exit For

sei sicuro che venga elaborata la parte a destra del Then nella riga che ho riportato sopra?
nel senso:

If InStr(LCase(prnt.DeviceName), "rightfax") > 0 .....

E' TRUE ?

[andy67]

si su quella parte non c'è problema ... e comunque ho provato anche con altre stampanti: sembra essere proprio l'istruzione SET printer a non avere effetto!