Hitachi

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


Initializeメソッド

指定されたすべてのプロパティをクリアにして,初期状態に戻します。

〈このページの構成〉

形式

Initialize()

パラメタ

なし

解説

Initializeメソッドは,EUR Server - Spool Service Adapterのプロパティの初期化処理が終了した時点で呼び出し元に制御が戻ります。

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

戻り値

なし

データ型

Empty

呼び出し例

' 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 = "E00200605291252462630000001000000007"
    objEURPMLS.SpoolLimit = "20060615"
    objEURPMLS.PrinterClassName = "A3"
    
    Call objEURPMLS.SetSpoolFileAttribute
    
    '先に指定したプロパティを初期化する
    Call objEURPMLS.Initialize
    
    '変更したい項目を修正する
    objEURPMLS.ServerAddress = "255.255.***.***"
    objEURPMLS.SearchJobID = "E00200605190259498390000001000000019"
    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