GetSpoolFileOutline()

なし

GetSpoolFileOutlineメソッドは，拠点サーバ上の蓄積フォルダから検索条件に合った蓄積ファイルの一覧の取得が終了した時点で呼び出し元に制御が戻ります。

次のプロパティのうちどれかが指定されていると，蓄積ファイルの検索処理が高速になります。

• SearchCreateTimeEnd
• SearchCreateTimeStart
• SearchJobID

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

なし

Empty

' GetSpoolFileOutline実行
Private Sub SUB_GetSpoolFileOutline()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
    
    Dim objEURPMLS
    Dim iLower, iUpper, I As Integer
    Dim cstJobIDList() As Variant
    Dim cstSpoolFileNameList() As Variant
    Dim cstPageNumList() As Variant
    Dim cstCreateTimeList() As Variant
    Dim cstPrintResultList() As Variant
    Dim cstPrinterClassNameList() As Variant
    
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    Call objEURPMLS.GetSpoolFileOutline
 
Err_Trap:
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
    
    If Err.Number = 0 Then
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        iLower = LBound(objEURPMLS.JobID)
        iUpper = UBound(objEURPMLS.JobID)
        cstJobIDList = objEURPMLS.JobID
        cstSpoolFileNameList = objEURPMLS.SpoolFileName
        cstPageNumList = objEURPMLS.PageNum
        cstCreateTimeList = objEURPMLS.CreateTime
        cstPrintResultList = objEURPMLS.PrintResult
        cstPrinterClassNameList = objEURPMLS.PrinterClassName
  
        For I = iLower To iUpper
            List5.AddItem "ジョブＩＤ[" & Trim(Str(I)) & "]：" & cstJobIDList(I)
            List5.AddItem "格納ファイル名[" & Trim(Str(I)) & "]：" & cstSpoolFileNameList(I)
            List5.AddItem "ページ数[" & Trim(Str(I)) & "]：" & cstPageNumList(I)
            List5.AddItem "作成日時[" & Trim(Str(I)) & "]：" & cstCreateTimeList(I)
            List5.AddItem "印刷結果[" & Trim(Str(I)) & "]：" & cstPrintResultList(I)
            List5.AddItem "プリンタクラス名[" & Trim(Str(I)) & "]：" & cstPrinterClassNameList(I)
  
        Next
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
  
    Set objEURPMLS = Nothing
  
End Sub