GetTrayList()

なし

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

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

UNIX/Linux環境の場合，トレイ一覧の取得はサポートしていません。UNIX/Linux環境のEUR Print Manager - Report Serverに対して，トレイ一覧の取得を実行した場合はエラーとなります。

なし

Empty

' GetTrayList実行
Private Sub SUB_GetTrayList()
    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.***.***"
    ''OS上のプリンタ名の設定
    objEURPMLS.ServerPrinterName = "Printer1"
    ''OS上のプリンタのトレイ一覧の取得
    Call objEURPMLS.GetTrayList
  
Err_Trap:
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
    
    If Err.Number = 0 Then
        Dim cstTrayList As Variant
        cstTrayList = objEURPMLS.ServerTrayList
        
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        iLower = LBound(cstTrayList)
        iUpper = UBound(cstTrayList)
        For I = iLower To iUpper
            List5.AddItem cstTrayList(I)
        Next
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
  
    Set objEURPMLS = Nothing
  
End Sub
  
' Initialize実行
Private Sub SUB_Initialize()
    Err.Clear
    On Error GoTo Err_Trap
    List5.Clear
  
    Dim objEURPMLS
        
    Set objEURPMLS = CreateObject("EURPMLS.Exec")
    
    '変更したい項目を修正する
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "EUR200605291252462630000001******007"
    objEURPMLS.SpoolLimit = "20060615"
    objEURPMLS.PrinterClassName = "Ａ３"
    
    Call objEURPMLS.SetSpoolFileAttribute
    
    '先に指定したプロパティを初期化する
    Call objEURPMLS.Initialize
    
    '変更したい項目を修正する
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "EUR200605190259498390000001******019"
    objEURPMLS.MaxPrintCount = 100
    
    Call objEURPMLS.SetSpoolFileAttribute
    
Err_Trap:
    List5.AddItem "GetAttr Err.Number=(" & Err.Number & ")"
    List5.AddItem "GetAttr Err.Description=(" & Err.Description & ")"
    
    Set objEURPMLS = Nothing
  
End Sub