GetPrinterResultMessage メソッド

プリントが完了したときにコールされる。

Function GetPrinterResultMessage(Result As prnPrinterResult) As String

パラメータ

戻り値

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

注意点

なし

使用例



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

Private WithEvents oJobMonitor As easyPDFPrinter.PrintJobMonitor



Private Function oJobMonitor_OnPrinterInit(ByVal uID As Long, ByVal JobInfo As easyPDFPrinter.PrintJobInfo) As Long

    ' ...

    oJobMonitor_OnPrinterInit = PRN_MON_CONTINUE_CONVERSION

End Function



Private Function oJobMonitor_OnPrinterUpdate(ByVal uID As Long, ByVal JobInfo As easyPDFPrinter.PrintJobInfo) As Long

    ' ...

    oJobMonitor_OnPrinterUpdate = PRN_MON_CONTINUE_CONVERSION

End Function



Private Function oJobMonitor_OnPrinterStart(ByVal uID As Long) As Long

    ' ...

    oJobMonitor_OnPrinterStart = PRN_MON_CONTINUE_CONVERSION

End Function



Private Function oJobMonitor_OnPageStart(ByVal uID As Long, ByVal PageNumber As Long) As Long

    ' ...

    oJobMonitor_OnPageStart = PRN_MON_CONTINUE_CONVERSION

End Function



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



    MsgBox oMonitor.GetPrinterResultMessage(Result)

    

    ' ...

    oJobMonitor_OnPrinterEnd = PRN_MON_CONTINUE_CONVERSION

End Function



' ...



Set oPrinter = CreateObject("easyPDF.Printer.7")

Set oPrintJob = oPrinter.PrintJob

Set oJobMonitor = oPrinter.PrintJobMonitor

oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"