CreateSaveDC Example for Visual Basic

Private Sub CreateSaveDC_Click()
   Dim DeviceSetting As New EpnDeviceSettings
   Dim MultiSaveOptions As New EpnMultiSaveOptions
   Dim ExtraDcOptions As New EpnExtraDcOptions
   
   Dim ePrint As New ePrint
   Dim hDC As Long
   
   Const TEST_PRINTER_NAME = "Test Printer Name"
   
   If ePrint.IsSupportLocked (SUPPORT_OEM) Then
      ePrint.UnlockSupport SUPPORT_OEM, OEM_KEY
   End If
   
   ePrint.GetPrinterSaveOptions TEST_PRINTER_NAME, MultiSaveOptions
   
   ExtraDcOptions.Password = "Test Password"
   
   hDC = ePrint.CreateSaveDC (TEST_PRINTER_NAME, DeviceSetting, MultiSaveOptions.PrinterSaveOptions (0), ExtraDcOptions) 
   
   ePrint.StartDoc hDC, "Test"
   RichTextBox1.SelPrint hDC
   ePrint.EndDoc hDC
   
   ePrint.DeleteDC hDC
End Sub