set aPrintSetting to {copies:1, starting page:1, ending page:9999, target printer:aPrinter}

tell application "Pages"
　　activate
　　tell document 1
　　　　try
　　　　　　print with properties aPrintSetting without print dialog –ダイアログなしで印刷
　　　　on error
　　　　　　display dialog "プリント中になんかのエラーが発生しました。たぶん、キャンセルされたんでしょう" buttons {"OK"} default button 1
　　　　end try
　　end tell
end tell

(*
–とりあえずSafariで印刷してみた。Safariである必要はない
tell application "Safari"
　　activate
　　tell document 1
　　　　try
　　　　　　print with properties aPrintSetting without print dialog –ダイアログなしで印刷
　　　　on error
　　　　　　display dialog "プリント中になんかのエラーが発生しました。たぶん、キャンセルされたんでしょう" buttons {"OK"} default button 1
　　　　end try
　　end tell
end tell
*)

–プリントキューの名称一覧を取得（10.9用)
on getPrintCues()
　　set aRes to do shell script "lpstat -v"
　　set aList to paragraphs of aRes
　　
　　set bList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set jj to trimStrings(j, "device for ", ":") of me
　　　　set the end of bList to jj
　　end repeat
　　
　　return bList
　　
end getPrintCues