[VB6] verificare installazione stampante

[md76]

Dovrei fare una funzione che mi dica se una determinata stampante che conosco il nome (es. Epson 870) e' installata oppure no, mi basta semplicemente un msgbox di risposta.

grazie

[i'mshady]

Private Sub Form_Load()

Dim X As Variant, Stampante As Boolean

For Each X In Printers
If X.DeviceName = "Epson 870" Then Stampante = True
Next X

MsgBox Stampante

End Sub

[ciro78]

ottimo codice funzionanet ma, se non sapessimo il nome della stampante e volesi accertarmi di avere una stampante nel sistema?