PrintSpoolReport()

なし

PrintSpoolReportメソッドは，印刷方式に応じて次に示すタイミングで呼び出し元に制御が戻ります。

• 蓄積スプールサーバ印刷時
  スプールサーバ上のプリンタスプールへの出力が完了したタイミング
  
• 蓄積クライアント印刷時
  EUR Clientへの配信が完了したタイミング
  

実行時にエラーが発生した場合，Err.Numberプロパティに終了コード，Err.Descriptionプロパティにメッセージが設定されます。

なし

Empty

' PrintSpoolReport実行
Private Sub SUB_PrintSpoolReport()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
  
    Dim objEURPMLS
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "E00200605291252462630000001******007"
    ''印刷モード=拠点印刷
    objEURPMLS.PrintStartPage = 0
    ''開始，終了ページの指定
    objEURPMLS.PrintStartPage = 3
    objEURPMLS.PrintEndPage = 5
    ''印刷実行
    Call objEURPMLS.PrintSpoolReport
    
Err_Trap:
    List5.AddItem "GetAttr Err.Number=(" & Err.Number & ")"
    List5.AddItem "GetAttr Err.Description=(" & Err.Description & ")"
    
    Set objEURPMLS = Nothing
  
End Sub