En otro foro me dieron esta respueta y Funciona!
Tienes un via y es usando Typelib Information Library
1-Crea un nuevo proyecto
2-Agrega la referencia a "Typelib Information"
3-Agrega un CommandButton a la forma
4-Copia este codigo que te adjunto
5-Corre el programa
6-En la Inmediate windows te saldra la lista de todas esas contantes con
valor y nombre.
Option Explicit
Dim obj As New VBRUN.PropertyBag
Private Sub Command1_Click()
Dim tliApp As TLI.TLIApplication
Dim tliInterfaceInfo As TLI.InterfaceInfo
Dim tliTypeLibInfo As TLI.TypeLibInfo
Dim tliConstants As TLI.Constants
Dim tliMemberInfo As TLI.MemberInfo
Set tliApp = New TLI.TLIApplication
Set tliInterfaceInfo = tliApp.InterfaceInfoFromObject(obj)
Set tliTypeLibInfo = tliInterfaceInfo.Parent
Set tliConstants = tliTypeLibInfo.Constants
For Each tliMemberInfo In
tliConstants.NamedItem("PrinterObjectConstants").Members
Debug.Print tliMemberInfo.Value & " - " & tliMemberInfo.Name
Next
End Sub
la envió :
"Norman A. Armas"
[email protected]>
