BCL easyPDF SDK
easyPDF SDK Usermanual
PDF Creator Programming API  |  Download Free Trial  |  Contact Us to Purchase

GetPrinterResultMessage Function

Gets printer result in string format.

Function GetPrinterResultMessage(Result As prnPrinterResult) As String

Parameters

Return Values

Printer result in string format.

Remarks

N/A.

Example Usage

Private oPrinter As easyPDFPrinter.Printer
' Declare variable with "WithEvents" keyword
Private WithEvents oMonitor As easyPDFPrinter.PrinterMonitor

Private Function oMonitor_OnPrinterInit(ByVal uID As Long, ByVal JobInfo As easyPDFPrinter.PrintJobInfo) As Long
    ' ...
    oMonitor_OnPrinterInit = PRN_MON_CONTINUE_CONVERSION
End Function

Private Function oMonitor_OnPrinterUpdate(ByVal uID As Long, ByVal JobInfo As easyPDFPrinter.PrintJobInfo) As Long
    ' ...
    oMonitor_OnPrinterUpdate = PRN_MON_CONTINUE_CONVERSION
End Function

Private Function oMonitor_OnPrinterStart(ByVal uID As Long) As Long
    ' ...
    oMonitor_OnPrinterStart = PRN_MON_CONTINUE_CONVERSION
End Function

Private Function oMonitor_OnPageStart(ByVal uID As Long, ByVal PageNumber As Long) As Long
    ' ...
    oMonitor_OnPageStart = PRN_MON_CONTINUE_CONVERSION
End Function

Private Function oMonitor_OnPrinterEnd(ByVal uID As Long, ByVal Result As prnPrinterResult) As Long

    MsgBox oMonitor.GetPrinterResultMessage(Result)

    ' ...
    oMonitor_OnPrinterEnd = PRN_MON_CONTINUE_CONVERSION
End Function

' ...

Private Sub Init()
    Set oPrinter = CreateObject("easyPDF.Printer.8")
    Set oMonitor = oPrinter.PrinterMonitor
End Sub