AddPrinter (IEpnPrinterList) Example for Visual Basic
Const TEST_PRINTER_NAME = "Test Printer Name"
Dim BatchPrinterInfo As New EpnBatchPrinterInfo
Dim EnhancedOptions As New EpnEnhancedOptions
Dim PrintersList As New EpnPrinterList
Dim ePrint As New ePrint
Dim i As Integer
If ePrint.IsSupportLocked (SUPPORT_OEM) Then
ePrint.UnlockSupport SUPPORT_OEM, OEM_KEY
End If
ePrint.GetDefaultEnhancedOptions EnhancedOptions
BatchPrinterInfo.PrinterName = Printer.DeviceName
BatchPrinterInfo.Flags = VALID_ENHANCED_OPTIONS
BatchPrinterInfo.EnhancedOptions.VerticalAlign = EnhancedOptions.VerticalAlign
BatchPrinterInfo.EnhancedOptions.HorizontalAlign = EnhancedOptions.HorizontalAlign
BatchPrinterInfo.EnhancedOptions.Layout = EnhancedOptions.Layout
BatchPrinterInfo.EnhancedOptions.Margin = EnhancedOptions.Margin
BatchPrinterInfo.EnhancedOptions.Ordering = EnhancedOptions.Ordering
BatchPrinterInfo.EnhancedOptions.Borders = EnhancedOptions.Borders
BatchPrinterInfo.EnhancedOptions.PrintingMethod = EnhancedOptions.PrintingMethod
BatchPrinterInfo.EnhancedOptions.GutterUnit = EnhancedOptions.GutterUnit
BatchPrinterInfo.EnhancedOptions.Gutter = EnhancedOptions.Gutter
BatchPrinterInfo.EnhancedOptions.EnhancedOptions = EnhancedOptions.EnhancedOptions
BatchPrinterInfo.EnhancedOptions.GutterInside = EnhancedOptions.GutterInside
BatchPrinterInfo.EnhancedOptions.MarginOffset = EnhancedOptions.MarginOffset
BatchPrinterInfo.EnhancedOptions.Repeat = EnhancedOptions.Repeat
BatchPrinterInfo.EnhancedOptions.BestFit = EnhancedOptions.BestFit
BatchPrinterInfo.EnhancedOptions.RightToLeft = EnhancedOptions.RightToLeft
BatchPrinterInfo.EnhancedOptions.GutterWidth = EnhancedOptions.GutterWidth
PrintersList.AddPrinter BatchPrinterInfo
MsgBox PrintersList.PrintersCount
ePrint.SetPrinterBatchPrintersList TEST_PRINTER_NAME, PrintersList