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