Hitachi

EUR 帳票出力 リファレンス EUR Server編


GetPrinterListメソッド

指定したスプールサーバのOS上のプリンタ一覧をServerPrinterListプロパティに取得します。

〈このページの構成〉

形式

GetPrinterList()

パラメタ

なし

解説

GetPrinterListメソッドは,OS上のプリンタ一覧の取得が終了した時点で呼び出し元に制御が戻ります。

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

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

戻り値

なし

データ型

Empty

呼び出し例

' GetPrinterList実行
Private Sub SUB_GetPrinterList()
    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.***.***"
    ''プリンタ一覧の取得
    Call objEURPMLS.GetPrinterList
    
Err_Trap:
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
  
    If Err.Number = 0 Then
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        Dim cstPrinterList As Variant
        cstPrinterList = objEURPMLS.ServerPrinterList
        iLower = LBound(cstPrinterList)
        iUpper = UBound(cstPrinterList)
        For I = iLower To iUpper
            List5.AddItem cstPrinterList(I)
        Next
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
  
    Set objEURPMLS = Nothing
   
End Sub