OnPrinterEnd イベント

プリントが終了した際にコールされる。

Function OnPrinterEnd(uID As Long,
                      Result As long) As Long

パラメータ

戻り値

戻り値としてprnMonitorResponse 内で指定された値の1つを使用してください。

注意点

なし

使用例


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

    ' ...

    oMonitor_OnPrinterEnd = PRN_MON_CONTINUE_CONVERSION

End Function



' ...



Private Sub Init()

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

    Set oMonitor = oPrinter.PrinterMonitor

End Sub