Private Sub ChangeOutputFileNameAndPath()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
UDCProfile = UDCPrinter.Profile(UDCPrinter.DefaultProfile)
UDCProfile.UsePreDefinedImageFileNameAndPath = 1
UDCProfile.PreDefinedImageFileName = "&[Document Name].&[Image Type]"
UDCProfile.PreDefinedImageFilePath = "C:\UDC Snapshots"
End Sub
|