Private Sub SetStandardPageSize()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
UDCProfile = UDCPrinter.Profile(UDCPrinter.DefaultProfile)
UDCProfile.PageFormat = "A3"
UDCProfile.PageOrientation = UDCWRAPPERLib.PAGE_ORIENTATION.PO_PORTRAIT
UDCProfile.PrintQualityX = 600
UDCProfile.PrintQualityY = 600
End Sub
Private Sub SetCustomPageSize()
Dim UDCPrinter As New UDCWRAPPERLib.Printer
Dim UDCProfile As UDCWRAPPERLib.Profile
UDCPrinter.PrinterName = "Universal Document Converter"
UDCProfile = UDCPrinter.Profile(UDCPrinter.DefaultProfile)
UDCProfile.PageWidth = 1200
UDCProfile.PageHeight = 1300
UDCProfile.PrintQualityX = 600
UDCProfile.PrintQualityY = 600
End Sub
|