GetPMPrinterList()

なし

GetPMPrinterListメソッドは，指定した印刷管理サーバのEUR Print Managerに登録されたOS上のプリンタの一覧を取得します。EUR Print Managerが稼働中でない場合，エラーとなります。

印刷管理サーバがUNIX/Linux環境の場合は使用できません。

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

OS上のプリンタ一覧を，次に示す形式で返します。

＜配列イメージ＞
OS上のプリンタ名1
OS上のプリンタ名2
　　：
OS上のプリンタ名n

String 配列

GetPMPrinterListメソッドの呼び出し例を次に示します。

 
'GetPMPrinterList実行
Private Sub SUB_ GetPMPrinterList()
 
    Dim objEURPM, wk_Return
    Dim iLower, iUpper, I
    Dim sEntry  As String
        
    Set objEURPM = CreateObject("EURPM.Exec")
    
    Me.Refresh
    
    Err.Clear
    On Error Resume Next
    wk_Return = objEURPM.GetPMPrinterList()
    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)
        For I = iLower To iUpper
            List5.AddItem wk_Return(I)
        Next
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
 
    Set objEURPM = Nothing
 
End Sub