tux mi ha anticipato nella risposta !
Avevo preparato questo codice:
Public Sub Form_Open()
Dim s As String
Dim cl As Class
Dim ob As Object
cl = Object.Class(Printer1)
For Each s In cl.Symbols
With cl[s]
If (Not .Hidden) Then
Select Case cl[s].Kind
Case Class.Constant
Print cl[s].name, cl[s].Value
Case Class.Property
If .Static Then ob = Printer
Print s, Object.GetProperty(ob, s)
ob = Printer1
End Select
Endif
End With
Next
End
E va be' !
Continuo a non capire, se ho bisogno di sapere qualcosa interrogo la stampante, del tipo:
With Printer1
Print .A3
Print .B5
Print .Name
Print .NumCopies
Print .GrayScale
Print .Resolution
Print .ReverseOrder
' print ...'
End With
A cosa mai potrà servire averle tutte in un vettore, boh :-\