GetSpoolFileOutlineメソッド
指定条件に合ったEUR Server - Spool Serviceのスプールデータの一覧を取得します。取得されるスプールデータの一覧については,マニュアル「EUR 帳票出力 機能解説 EUR Server編」を参照してください。
形式
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 "ジョブID[" & 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