—マシンにエントリされているプリンタから１つを選択してデフォルトプリンタに設定する
—設定したプリンタの名称を文字列で返す
on setDefaultPrinter()
　　tell application "Printer Setup Utility"
　　　　set curPr to name of current printer
　　　　set curPrList to {curPr}
　　　　set myList to name of every printer
　　　　tell me
　　　　　　set aRes to (choose from list myList default items curPrList)
　　　　end tell
　　　　if aRes = false then return
　　　　set newPrinterName to item 1 of aRes
　　　　set current printer to printer newPrinterName
　　end tell
　　return newPrinterName
end setDefaultPrinter

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に