Private Sub ChangeOutputImageFileFormat()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
UDCProfile = UDCPrinter.Profile(UDCPrinter.DefaultProfile)
UDCProfile.ImageFileFormat = UDCWRAPPERLib.IMAGE_FORMAT.FMT_TIFF
UDCProfile.MultiPageMode(UDCProfile.ImageFileFormat) = _
UDCWRAPPERLib.MULTIPAGE_MODE.MM_ONE_DOCUMENT
UDCProfile.ImageFileColorDepth(UDCProfile.ImageFileFormat) = 1
UDCProfile.DitherImage(UDCProfile.ImageFileFormat) = 0
UDCProfile.CompressionMethod(UDCProfile.ImageFileFormat) = _
UDCWRAPPERLib.IMAGE_COMPRESSION.CMP_CCITT_FAX4
End Sub
|