GetPrinterResultMessage ファンクション

文字列フォーマットでプリンタの結果を取得する。

Function GetPrinterResultMessage(Result As prnPrinterResult) As String

パラメータ

戻り値

文字列フォーマットのプリンタの結果

注意点

なし

使用例


Private oPrinter As easyPDFPrinter.Printer

' "WithEvents"キーワードで変数を宣言します

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.7")

    Set oMonitor = oPrinter.PrinterMonitor

End Sub