GetPrinterClassListメソッド

形式

GetPrinterClassList()

ページの先頭へ

パラメタ

なし

ページの先頭へ

解説

指定したスプールサーバのEUR Server - Spool Serviceに登録されているプリンタクラス一覧をPrinterClassListプロパティに取得します。

GetPrinterClassListメソッドは，スプールサーバ上のプリンタクラス一覧の取得が終了した時点で呼び出し元に制御が戻ります。

実行時にエラーが発生した場合，Err.Numberプロパティに終了コード，Err.Descriptionプロパティにメッセージが設定されます。

UNIX／Linux環境の場合，プリンタクラス一覧の取得はサポートしていません。UNIX／Linux環境のEUR Server - Spool Serviceに対して，プリンタクラス一覧の取得を実行した場合はエラーとなります。

ページの先頭へ

戻り値

なし

ページの先頭へ

データ型

Empty

ページの先頭へ

呼び出し例

'GetPrinterClassList実行
Private Sub SUB_GetPrinterClassList()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
  
    Dim objEURPMLS
    Dim iLower, iUpper, I As Integer
    Dim jLower, jUpper, J As Integer
    Dim sEntry  As String
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    objEURPMLS.ServerAddress = "255.255.***.***"
    ''プリンタクラス一覧の取得
    objEURPMLS.GetPrinterClassList
  
Err_Trap:
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
    
    If Err.Number = 0 Then
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        Dim cstPrinterClsList As Variant
        cstPrinterClsList = objEURPMLS.PrinterClassList
        
        iLower = LBound(cstPrinterClsList, 1)
        iUpper = UBound(cstPrinterClsList, 1)
        jLower = LBound(cstPrinterClsList, 2)
        jUpper = UBound(cstPrinterClsList, 2)
        For I = iLower To iUpper
            sEntry = ""
            For J = jLower To jUpper
                If J > 0 Then
                    sEntry = sEntry + ","
                End If
                sEntry = sEntry + cstPrinterClsList(I, J)
            Next
            List5.AddItem sEntry
        Next
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
  
    Set objEURPMLS = Nothing
  
End Sub

ページの先頭へ