Potrebbe essere questo!?

Dim X As Printer
For Each X In Printers
If X.DeviceName = strNome Then
' Imposta la stampante come predefinita di sistema.
Set Printer = X
' Interrompe la ricerca di una stampante.
Exit For
End If
Next