Private Sub GetProfilesList()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim StringsArray As Variant
Dim nProfiles As Long
Dim Message, Break As String
UDCPrinter.PrinterName = "Universal Document Converter"
StringsArray = UDCPrinter.ProfilesList
nProfiles = UBound(StringsArray)
Break = Chr(13) + Chr(10)
For i = 0 To nProfiles
Message = Message & (i + 1) & ". " + StringsArray(i) + Break
Next i
Call MsgBox(Message, vbOKOnly, "List of Installed Profiles")
End Sub
|