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