GetPrinterClassListメソッド
指定した出力先(スプールサーバ)に登録されているプリンタクラスの一覧を取得します。
形式
GetPrinterClassList(String DestinationName)
パラメタ
DestinationName
出力先名
解説
GetPrinterClassListメソッドは,指定した出力先のEUR Server - Spool Serviceに登録されたプリンタクラスの一覧を取得します。出力先を指定していない場合は,デフォルトの出力先として登録されたスプールサーバのプリンタクラスの一覧を取得します。EUR Server - Spool Serviceが稼働中でない場合,エラーとなります。
取得できる情報は,定義された拠点プリンタクラス情報です。スプールサーバでのプリンタの稼働状況は取得できません。
メソッド実行時にエラーが発生した場合,Err.Numberプロパティに終了コード,Err.Descriptionプロパティにメッセージが設定されます。
UNIX/Linux環境の場合,拠点プリンタクラス一覧の取得はサポートしていません。UNIX/Linux環境のEUR Server - Spool Serviceに対して,拠点プリンタクラス一覧の取得を実行した場合はエラーとなります。
戻り値
プリンタクラスの一覧を次に示す形式で返します。
プリンタクラス名1,OS上のプリンタ名1,OS上のプリンタのトレイ名1,説明1 プリンタクラス名2,OS上のプリンタ名2,OS上のプリンタのトレイ名2,説明2 : プリンタクラス名n,OS上のプリンタ名n,OS上のプリンタのトレイ名n,説明n
データ型
Stringの2次元配列
呼び出し例
GetPrinterClassListメソッドの呼び出し例を次に示します。
'GetPrinterClassList実行 Private Sub SUB_GetPrinterClassList() Dim objEURPM, wk_Return Dim iLower, iUpper, I Dim jLower, jUpper, J Dim sEntry As String Set objEURPM = CreateObject("EURPM.Exec") Me.Refresh Err.Clear On Error Resume Next wk_Return = objEURPM.GetPrinterClassList("SERVER1") List5.AddItem "Err.Number=(" & Err.Number & ")" List5.AddItem "Err.Description=(" & Err.Description & ")" If Err.Number = 0 Then List5.AddItem "" List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★" iLower = LBound(wk_Return, 1) iUpper = UBound(wk_Return, 1) jLower = LBound(wk_Return, 2) jUpper = UBound(wk_Return, 2) For I = iLower To iUpper sEntry = "" For J = jLower To jUpper If J > 0 Then sEntry = sEntry + "," End If sEntry = sEntry + wk_Return(I, J) Next List5.AddItem sEntry Next List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★" End If Set objEURPM = Nothing End Sub