GetPMPrinterListメソッド
帳票サーバのOSに登録されているプリンタの一覧を取得します。
形式
GetPMPrinterList()
パラメタ
なし
解説
GetPMPrinterListメソッドは,指定した帳票サーバのOS上のプリンタの一覧を取得します。EUR Server Serviceが稼働中でない場合,エラーとなります。
帳票サーバが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