Come ottengo i valori delle Proprietà di Printer ?

[vuott]

https://www.gambas-club.de/viewtopic.php?f=3&t=5551ch

[Gianluigi]

Io non ho capito come (da dove) ottiene questi valori?
Con un programma? Con un comando bash? Con un componente di Gambas?

 

[vuott]

tux mi ha anticipato nella risposta !
Avevo preparato questo codice:

Codice: [Seleziona]

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

ma quando sono andato per inserirlo, ho visto che tux ne aveva inserito uno analogo !

E va be' !

[Gianluigi]

Continuo a non capire, se ho bisogno di sapere qualcosa interrogo la stampante, del tipo:

Codice: [Seleziona]

  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 

[vuott]

Lui parla di averle automaticamente, e a questo punto...
...automaticamente mi arrendo.   

[Gianluigi]

...automaticamente mi arrendo.