GetTrayListメソッド
指定したスプールサーバのOS上のプリンタのトレイ一覧をServerTrayListプロパティに取得します。
形式
GetTrayList()
パラメタ
なし
解説
GetTrayListメソッドは,OS上のプリンタのトレイ一覧が取得終了した時点で呼び出し元に制御が戻ります。
実行時にエラーが発生した場合,Err.Numberプロパティに終了コード,Err.Descriptionプロパティにメッセージが設定されます。
UNIX/Linux環境の場合,トレイ一覧の取得はサポートしていません。UNIX/Linux環境のEUR Server - Spool Serviceに対して,トレイ一覧の取得を実行した場合はエラーとなります。
戻り値
なし
データ型
Empty
呼び出し例
' GetTrayList実行 Private Sub SUB_GetTrayList() Err.Clear On Error GoTo Err_Trap List5.Clear Dim objEURPMLS Dim iLower, iUpper, I As Integer Set objEURPMLS = CreateObject("EURPMLS.Exec") objEURPMLS.ServerAddress = "255.255.***.***" ''OS上のプリンタ名の設定 objEURPMLS.ServerPrinterName = "Printer1" ''OS上のプリンタのトレイ一覧の取得 Call objEURPMLS.GetTrayList Err_Trap: List5.AddItem "Err.Number=(" & Err.Number & ")" List5.AddItem "Err.Description=(" & Err.Description & ")" If Err.Number = 0 Then Dim cstTrayList As Variant cstTrayList = objEURPMLS.ServerTrayList List5.AddItem "" List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★" iLower = LBound(cstTrayList) iUpper = UBound(cstTrayList) For I = iLower To iUpper List5.AddItem cstTrayList(I) Next List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★" End If Set objEURPMLS = Nothing End Sub