プリンタ一覧の情報を取得する v2

現在使用可能なプリンタの名称一覧を取得するAppleScriptです。

macOS上の各種アプリケーションでAppleScript用語辞書中にprintコマンドを含んでいる場合、文字列でプリンタ名称を指定できますが、そのプリンタ名称を取得するストレートな手段がありませんでした（lpstatコマンドで調べていました）。

＃　初期のMac OS XにはPrint Centerというアプリケーションが存在しており、それがScriptableでした

本ScriptはCocoaの機能を呼び出して、プリンタ名を取得します。正直なところ、プリンタ名を直接指定して印刷出力する例はそれほど多くないのですが、印刷ダイアログを表示せずに印刷させたいケースがないわけではありません。また、プリンタ名を状況に応じて変更することも（OSが勝手にやってくれるとはいえ）、必要なケースもあります。ネットワーク上に複数のプリンタが存在している場合には必要になってくることでしょう。

AppleScript名：プリンタ一覧の情報を取得する v2

— Created 2014-11-27 by Takaaki Naganoya
— Modified 2016-02-02 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set pList to getPrinterNames() of me
–>　　{"Canon iP110 series", "NEC MultiWriter 5750C @ MBA13", "PDFwriter", "PM-T960-1", "Print to VipRiser", "Print to VipRiser (CUPS-PDF)"}

on getPrinterNames()
　　–Get Printer Names
　　set pArray to current application’s NSPrinter’s printerNames
　　set pList to pArray as list
　　–>　　{"Canon iP110 series", "KING JIM TEPRA PRO SR3700P", "NEC MultiWriter 5750C @ MBA13", "PageSender-Fax", "PDFwriter", "PM-T960-1", "Print to VipRiser", "Print to VipRiser (CUPS-PDF)"}
　　
　　–Get Printer Type (Driver Name?)
　　set tArray to current application’s NSPrinter’s printerTypes
　　set tList to tArray as list
　　–> {"TEPRA PRO SR3700P", "NEC MultiWriter 5750C v2.4", "Lisanet PDFwriter", "EPSON PM-T960", "Fax Printer"}
　　
　　set colorPinterList to {}
　　
　　repeat with i in pList
　　　　set j to contents of i
　　　　
　　　　–Is it a Printer?
　　　　set aPrinter to (current application’s NSPrinter’s printerWithName:j)
　　　　set aDesc to aPrinter’s deviceDescription
　　　　set aRec to aDesc as record
　　　　–> {NSDeviceIsPrinter:"YES"}
　　　　
　　　　–Is it a Color Printer?
　　　　set aColor to (aPrinter’s isColor()) as boolean –isColor() deprecated? It works
　　　　if aColor = true then
　　　　　　set the end of colorPinterList to j
　　　　end if
　　　　
　　end repeat
　　
　　return colorPinterList
　　
end getPrinterNames