[VB6] gestione stampanti

[md76]

Sul mio pc ho collegate 3 stampanti:
1 Epson
2 IBM
3 HP

Vorrei che premendo un bottone messo in un form di VB mi metta come predifinita la stampante HP.

E' possibile ?

Grazie 1000

[xit]

Dim X As Printer
For Each X In Printers
If X.DeviceName = HP
Set Printer = X
Exit For
End If
Next