GetPMPrinterClassListメソッド
帳票サーバのプリンタクラスの一覧を取得します。
形式
GetPMPrinterClassList()
パラメタ
なし
解説
GetPMPrinterClassListメソッドは,指定した帳票サーバのEUR Server Serviceに登録されたプリンタクラスの一覧を取得します。
取得できる情報は,定義されたプリンタクラス情報です。帳票サーバでのプリンタの稼働状況は取得できません。
メソッド実行時にエラーが発生した場合は,Err.Numberプロパティに終了コード,Err.Descriptionプロパティにメッセージが設定されます。
戻り値
帳票サーバのプリンタクラスの一覧を,次に示す形式で返します。
<2次元配列イメージ:n行4列>
プリンタクラス名1,OS上のプリンタ名1,OS上のプリンタのトレイ名1,説明1 プリンタクラス名2,OS上のプリンタ名2,OS上のプリンタのトレイ名2,説明2 : プリンタクラス名n,OS上のプリンタ名n,OS上のプリンタのトレイ名n,説明n
データ型
String の2次元配列
呼び出し例
GetPMPrinterClassListメソッドの呼び出し例を次に示します。
'GetPMPrinterClassList実行 Private Sub SUB_ GetPMPrinterClassList () 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.GetPMPrinterClassList() 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