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