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

(*
プロパティ：

copies integer — プリントする書類の部数
collating boolean — プリントの丁合をとるかどうか
starting page integer — 書類からプリントする最初のページ
ending page integer — 書類からプリントする最後のページ
pages across integer — 物理的なページ上に横方向に並べる論理ページの数
pages down integer — 物理的なページ上に縦方向に並べる論理ページの数
requested print time date — デスクトッププリンタが書類をプリントするべき時間
error handling standard/summarized/detailed — エラーの処理方法
fax number text — 書類の送信先ファックス番号
target printer text — 出力先のプリントキューの名前

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

–プリントキューの名称一覧を取得
–10.7用に書き換え
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 = 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
–任意の文字列から指定開始子、指定終了子でトリミングした文字列を取り出す
on trimStrings(aString, fromStr, endStr)
　　set fromLen to length of fromStr
　　set eLen to length of endStr
　　
　　set sPos to offset of fromStr in aString
　　if sPos = 0 then return “”
　　set body1 to text (sPos + fromLen) thru -1 of aString
　　set ePos to offset of endStr in body1
　　if ePos = 0 then return “”
　　set body2 to text 1 thru (ePos - 1) of body1
　　
　　return body2
end trimStrings

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

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.6用に書き換え
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 = 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
–任意の文字列から指定開始子、指定終了子でトリミングした文字列を取り出す
on trimStrings(aString, fromStr, endStr)
　　set fromLen to length of fromStr
　　set eLen to length of endStr
　　
　　set sPos to offset of fromStr in aString
　　if sPos = 0 then return ""
　　set body1 to text (sPos + fromLen) thru -1 of aString
　　set ePos to offset of endStr in body1
　　if ePos = 0 then return ""
　　set body2 to text 1 thru (ePos - 1) of body1
　　
　　return body2
end trimStrings

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

*)

–set directionF to "V" –用紙方向＝たて方向
set directionF to "H" –用紙方向＝たて方向

set printerName to "PS-NX650"
set paperSize to "A4"

printViaGUI(directionF, printerName, paperSize) of me

on printViaGUI(directionF, printerName, paperSize)
　　activate application "Preview"
　　tell application "System Events"
　　　　tell process "プレビュー"
　　　　　　
　　　　　　set goF to false
　　　　　　repeat 10 times
　　　　　　　　–メニューから印刷を実行
　　　　　　　　click menu item "プリント…" of menu 1 of menu bar item "ファイル" of menu bar 1
　　　　　　　　
　　　　　　　　tell window 1
　　　　　　　　　　tell sheet 1
　　　　　　　　　　　　–拡張プリントダイアログを表示させる
　　　　　　　　　　　　set sheetClosed to value of checkbox 1
　　　　　　　　　　　　if sheetClosed = 0 then
　　　　　　　　　　　　　　click checkbox 1
　　　　　　　　　　　　　　click button "キャンセル"
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set goF to true
　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　if goF = false then return
　　　　end tell
　　end tell
　　
　　
　　
　　
　　activate application "Preview"
　　tell application "System Events"
　　　　tell process "プレビュー"
　　　　　　
　　　　　　–メニューから印刷を実行
　　　　　　click menu item "プリント…" of menu 1 of menu bar item "ファイル" of menu bar 1
　　　　　　
　　　　　　tell window 1
　　　　　　　　tell sheet 1
　　　　　　　　　　
　　　　　　　　　　–出力先のプリンタを指定
　　　　　　　　　　tell pop up button 4 –「プリンタ」ポップアップボタン
　　　　　　　　　　　　set aTitle to value
　　　　　　　　　　　　if aTitle is not equal to printerName then
　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　　　set mList to title of every menu item
　　　　　　　　　　　　　　　　set aRes1 to retIHitItem(mList, printerName as Unicode text) of me
　　　　　　　　　　　　　　　　if aRes1 = false then
　　　　　　　　　　　　　　　　　　return mList
　　　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　　　click menu item aRes1
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　–用紙サイズを変更
　　　　　　　　　　tell pop up button 1
　　　　　　　　　　　　
　　　　　　　　　　　　set aTitle to value as string
　　　　　　　　　　　　if aTitle is not equal to paperSize then
　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　　　set mList to value of every menu item
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set aLen to length of mList
　　　　　　　　　　　　　　　　select menu item 1 –最終アイテムを選択しておく
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　set aRes2 to retIHitItem(mList, paperSize as string) of me
　　　　　　　　　　　　　　　　if aRes2 = false then
　　　　　　　　　　　　　　　　　　return false
　　　　　　　　　　　　　　　　end if
　　　　　　　　　　　　　　　　click menu item aRes2
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　–用紙方向を指定
　　　　　　　　　　if directionF = "V" then
　　　　　　　　　　　　click radio button 1 of radio group 3
　　　　　　　　　　else if directionF = "H" then
　　　　　　　　　　　　click radio button 2 of radio group 3
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　–「用紙サイズに合わせる」をクリック
　　　　　　　　　　click radio button 2 of radio group 1
　　　　　　　　　　
　　　　　　　　　　–「プリント」ボタンをクリック
　　　　　　　　　　–click button "プリント"–ここをコメントアウトすると印刷を行う。
　　　　　　　　　　beep
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end printViaGUI

–指定リスト中の何アイテム目かを調べて返す
on retIHitItem(aList, anItem)
　　set aCount to 1
　　set hitF to false
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = anItem then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if hitF = false then return false
　　
　　return aCount
end retIHitItem

–GUI Scriptingの命令が続く中でdelayコマンドをエラーになるので、
–wait部分だけサブルーチン化
on waitSec(aNum)
　　delay aNum
end waitSec

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

–マシンにエントリされているプリンタから１つを選択してデフォルトプリンタに設定する
–設定したプリンタの名称を文字列で返す
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

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

–> {”DC4055P”, “PM-T960″, “PS-NX650_Print”}

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

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

–とりあえずSafariで印刷してみた。Safariである必要はない
tell application “Safari“
　　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

(*
プロパティ：

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

–プリントキューの名称一覧を取得
on getPrintCues()
　　set P to paragraphs of (do shell script “lpstat -p“)
　　set pList to {}
　　repeat with i in P
　　　　set j to contents of i
　　　　set aPName to trimStrings(j, “printer “, “ is idle. enabled since “) of me
　　　　if aPName is not equal to “” then
　　　　　　set the end of pList to aPName
　　　　end if
　　end repeat
　　
　　return pList
end getPrintCues
–任意の文字列から指定開始子、指定終了子でトリミングした文字列を取り出す
on trimStrings(aString, fromStr, endStr)
　　set fromLen to length of fromStr
　　set eLen to length of endStr
　　
　　set sPos to offset of fromStr in aString
　　if sPos = 0 then return “”
　　set body1 to text (sPos + fromLen) thru -1 of aString
　　set ePos to offset of endStr in body1
　　if ePos = 0 then return “”
　　set body2 to text 1 thru (ePos - 1) of body1
　　
　　return body2
end trimStrings

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

–デフォルトの出力先のプリンタ名称（キュー名称？）を取得
on retDefaultPrinter()
　　set aShellText to “lpstat -s | head -n 1“
　　set aRes to do shell script aShellText
　　if aRes does not start with “system default destination:” then
　　　　return “”
　　else
　　　　set aPos to offset of “:” in aRes
　　　　if aPos is not equal to 0 then
　　　　　　set aText to text (aPos + 2) thru -1 of aRes
　　　　　　return aText
　　　　else
　　　　　　return “”
　　　　end if
　　end if
end retDefaultPrinter

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