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

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

(*
プロパティ：

–用紙サイズを指定できないのはどういうことなのか？（汗）　用紙サイズ指定できなかったら意味ないやんけ！
*)

–プリントキューの名称一覧を取得
–10.8, 10.9用に書き換え
on getPrintCues()
　　set P to paragraphs of (do shell script "lpstat -p")
　　set pList to {}
　　
　　set osVer to (system attribute "sys2") as number
　　
　　repeat with i in P
　　　　set j to contents of i
　　　　
　　　　if osVer = 9 then
　　　　　　–10.9
　　　　　　set aPName to trimStrings(j, "printer ", " is idle. enabled since ") of me –また、10.4の仕様に戻しましたね
　　　　else if osVer = 8 then
　　　　　　–10.8
　　　　　　set aPName to trimStrings(j, "プリンタ", " は待機中です。") of me
　　　　else if osVer = 7 then
　　　　　　–10.7
　　　　　　set aPName to trimStrings(j, "プリンタ", " は待機中です。") of me
　　　　else if osVer = 6 then
　　　　　　–10.6
　　　　　　set aPName to trimStrings(j, "プリンター ", " は待機中です。") of me
　　　　else if osVer = 5 then
　　　　　　–10.5
　　　　　　set aPName to trimStrings(j, "プリンタ ", " は待機中です。") of me
　　　　else if osVer = 4 then
　　　　　　–10.4
　　　　　　set aPName to trimStrings(j, "printer ", " is idle. enabled since ") of me
　　　　end if
　　　　
　　　　if aPName is not equal to "" then
　　　　　　set the end of pList to aPName
　　　　end if
　　end repeat
　　
　　return pList
end getPrintCues