GetSpoolFileOutlineメソッド

形式

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

ページの先頭へ