UWSC辞典

使用しているプリンターの名前を取得または設定します。

構文

Application.ActivePrinter

引数

戻値

プログラム実行例

アクティブプリンターの名前を取得

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE

PRINT Excel.Application.ActivePrinter

Excel.Application.DisplayAlerts = FALSE
Excel.QuitDIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE

PRINT Excel.Application.ActivePrinter

Excel.Application.DisplayAlerts = FALSE
Excel.Quit

結果

Brother DCP-J963N Printer on Ne03: