set pArray to current application’s NSPrinter’s printerNames
set pList to pArray as list

if length of pList > 1 then
　　set targPrinter to choose from list pList with prompt "Choose a printer"
　　if targPrinter = false then return
end if

set aPrinter to first item of targPrinter

tell application "CotEditor"
　　if (count every document) = 0 then return
　　
　　tell front document
　　　　set aPrintSetting to {copies:1, starting page:1, ending page:1, target printer:aPrinter}
　　　　print with properties aPrintSetting without print dialog
　　end tell
end tell

set aPrintInfo to current application’s NSPrintInfo’s sharedPrintInfo()
set aPaperName to (aPrintInfo’s paperName()) as string
–>　　"iso-a4"
set aPaperSize to (aPrintInfo’s paperSize()) as record
–>　　{​​​​​width:595.0, ​​​​​height:842.0​​​}
set aLocPaperName to (aPrintInfo’s localizedPaperName()) as string
–>　　"A4"
set anOrientation to (aPrintInfo’s orientation()) as integer
–>　　0

set theNames to current application’s NSPrinter’s printerNames() as list
–>　　{​​​​​"KING JIM TEPRA PRO SR3700P", ​​​​​"NEC MultiWriter 5750C @ MBA13", ​​​​​"PDFwriter", ​​​​​"PM-T960-1", ​​​​​"USB Modem"​​​}

set printerName to (choose from list theNames with prompt "Choose a printer:")
if printerName = false then error number -128

set thePrinter to current application’s NSPrinter’s printerWithName:(item 1 of printerName)
(*
–>　　(NSPrinter) {
"Device Description" = {
NSDeviceIsPrinter = YES;
};
"Language Level" = 3;
Name = "NEC MultiWriter 5750C @ MBA13";
Type = "NEC MultiWriter 5750C v2.4";
}
*)

set thePrintInfo to current application’s NSPrintInfo’s sharedPrintInfo()
(*
–>　　(NSPrintInfo) {
NSBottomMargin = 90;
NSCopies = 1;
NSDestinationFormat = "com.apple.documentformat.default";
NSDetailedErrorReporting = 0;
NSFaxNumber = "";
NSFirstPage = 1;
NSHorizonalPagination = 2;
NSHorizontallyCentered = 1;
NSJobDisposition = NSPrintSpoolJob;
NSJobSavingFileNameExtensionHidden = 0;
NSLastPage = 2147483647;
NSLeftMargin = 72;
NSMustCollate = 1;
NSOrientation = 0;
NSPagesAcross = 1;
NSPagesDown = 1;
NSPaperName = "iso-a4";
NSPaperSize = "NSSize: {595, 842}";
NSPrintAllPages = 1;
NSPrintProtected = 0;
NSPrintSelectionOnly = 0;
NSPrintTime = "0000-12-30 00:00:00 +0000";
NSPrinter = "{＼n ＼"Device Description＼" = {＼n NSDeviceIsPrinter = YES;＼n };＼n ＼"Language Level＼" = 3;＼n Name = ＼"NEC MultiWriter 5750C @ MBA13＼";＼n Type = ＼"NEC MultiWriter 5750C v2.4＼";＼n}";
NSPrinterName = "NEC MultiWriter 5750C @ MBA13";
NSRightMargin = 72;
NSSavePath = "";
NSScalingFactor = 1;
NSTopMargin = 90;
NSVerticalPagination = 0;
NSVerticallyCentered = 1;
}
*)

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)"}

set aController to current application’s GCController’s controllers()
–>　　(NSArray) {​​​​​(_GCController) <GCController 0x6080004a2580 vendorName=’USB Game Device’ deviceHash=0xbe8dba5719e63307>​​​}

set aCon to aController’s firstObject()
if aCon = missing value then return
set aGameCon to aCon’s gamepad()
–>　　(_GCMFiGamepadControllerProfile) <_GCMFiGamepadControllerProfile: 0x6000000df870>

set aExGameCon to aCon’s extendedGamepad()
–>　　missing value

set aMicGameCon to aCon’s microGamepad()
–>　　(_GCMFiGamepadControllerProfile) <_GCMFiGamepadControllerProfile: 0x6000000df870>

set aMotion to aCon’s motion()
–>　　missing value

set aVendor to aCon’s vendorName() as string
–>　　"USB Game Device"

set anAttached to aCon’s isAttachedToDevice()
–>　　false

set a to "Safari"
set aRes to dispAppWithFullScreen(a) of me

–指定名称のアプリケーション（起動中のもの）をフルスクリーン表示
on dispAppWithFullScreen(applicationName)
　　
　　set appName to returnExactNameOfAnApp(applicationName)
　　if appName = false then return false –指定のアプリがなかった、あるいはアプリケーション名を間違って指定した
　　
　　set pID to id of application appName
　　
　　tell application appName
　　　　reopen
　　　　activate
　　end tell
　　
　　tell application "System Events"
　　　　tell (process 1 whose bundle identifier is pID)
　　　　　　set b1List to every button of window 1 whose subrole is "AXFullScreenButton" –Full Screen
　　　　　　set b2List to every button of window 1 whose subrole is "AXZoomButton" –Zoom
　　　　　　
　　　　　　if b1List = {} then
　　　　　　　　set targB to first item of b2List –フルスクリーン表示機能を持たないアプリの場合
　　　　　　else
　　　　　　　　set targB to first item of b1List –フルスクリーン表示機能を持つアプリの場合
　　　　　　end if
　　　　　　
　　　　　　click targB
　　　　end tell
　　end tell
　　
　　return true
　　
end dispAppWithFullScreen

–指定のURLスキームに対応するアプリケーションのパスを取得
set aRes to getDefaultAppForScheme("http") of defautApLib
–> "/Applications/Safari.app"

set bRes to getDefaultAppForScheme("ftp") of defautApLib
–> "/Applications/Transmit.app"

–指定のURLスキームに対応するアプリケーションを設定
set cRes to setDefaultAppForScheme("ftp", "Safari") of defautApLib
–> true

set dInfoList to getOpticalDrivesInfo() of me
–> {{driveNum:"1", vendorName:"BUFFALO", productName:"Optical Drive", supportLevel:"Unsupported", revisionNo:"BFT6", busName:"USB", suppoortLevel:"Unsupported"}, {driveNum:"2", vendorName:"MATSHITA", productName:"BD-MLT UJ240AS", supportLevel:"Unsupported", revisionNo:"1.00", busName:"USB", suppoortLevel:"Unsupported"}}

–光学ドライブの情報を返す
on getOpticalDrivesInfo()
　　set dList to paragraphs of (do shell script "drutil list")
　　set d2List to removeItemFromList(dList, "") of me
　　
　　if length of d2List = 1 then return false –No Optical Drive
　　
　　set d2List to rest of d2List –skip first header row
　　
　　set dMainList to {}
　　repeat with i in d2List
　　　　set tmpA to (current application’s NSString’s stringWithString:i)
　　　　set tmpB to (tmpA’s componentsSeparatedByString:" ") as list –parse string by space character
　　　　set tmpC to removeItemFromList(tmpB, "") of me –remove empty item from list
　　　　
　　　　set dNum to first item of tmpC
　　　　set aVendor to second item of tmpC
　　　　set supLevel to last item of tmpC
　　　　set busStr to item -2 of tmpC
　　　　set revStr to item -3 of tmpC
　　　　
　　　　–Product Nameのlist itemをスペースでつないで文字列化
　　　　set prodName1 to items 3 thru -4 of tmpC
　　　　set prodName2 to retStrFromArrayWithDelimiter(prodName1, " ") of me
　　　　
　　　　set the end of dMainList to {driveNum:dNum, vendorName:aVendor, productName:prodName2, supportLevel:supLevel, revisionNo:revStr, busName:busStr, suppoortLevel:supLevel}
　　end repeat
　　
　　return dMainList
end getOpticalDrivesInfo

–1D Listから指定内容の要素をすべて削除する
on removeItemFromList(aTargList, aTargValue)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aTargList
　　repeat
　　　　set aInd to anArray’s indexOfObject:aTargValue
　　　　–macOS 10.12〜10.13.0までのNSNotFoundの値定義の間違いというAppleの恥ずかしいバグに対処
　　　　if aInd = current application’s NSNotFound or (aInd as real > 9.99999999E+8) then exit repeat
　　　　anArray’s removeObjectAtIndex:aInd
　　end repeat
　　return anArray as list
end removeItemFromList

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as text
end retStrFromArrayWithDelimiter