Private Sub SetDefaultProfile()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
UDCProfile = UDCPrinter.Profile("Document to JPEG, Color")
UDCProfile.Default = True
End Sub
|