ApplescriptでPDFに保管

VitalSourseのBookShelfからPDFにする方法です。
面倒臭かったのでスクリプト化してみました。備忘録がてら投稿してみます。
はじめての投稿はまさかのApplescriptとは。

そもそもVitalSourseBookshelfなるものが
印刷したいのに10枚ずつしか出力できないのを
少しでも楽しようと思って、開始ページを入力すれば10ページ先まで印刷するScriptを応用しました。
ただ、決まりきったキーを押していくだけなんですが、
かなり楽になりました。

きっと印刷部分を繰り返しにして10ページごとに繰り返してくれるのが理想なんだけど。

PDFsave

--開始のページを取得
set Start_val to text returned of ¬
    (display dialog ¬
        "最初のページを入力してください" with title ¬
        "印刷ページの先頭指定" default answer ¬
        "1" buttons {"OK", "Cancel"} ¬
        default button 1 cancel button 2)

--一度に出力できる枚数
set Incriment_Val to 10

tell application "VitalSource Bookshelf"
    activate
    delay 1

    --プリントのショートカットキー
    tell application "System Events" to keystroke "p" using command down
    delay 1

    --開始ページの指定
    tell application "System Events" to keystroke Start_val as string
    tell application "System Events" to keystroke tab

    --終了ページの指定
    tell application "System Events" to keystroke Start_val + Incriment_Val - 1 as string
    tell application "System Events" to keystroke tab
    tell application "System Events" to keystroke return
    tell application "System Events" to keystroke return
    delay 3
end tell

activate application "VitalSource Bookshelf"
tell application "System Events"
    tell process "Bookshelf"
        click menu button "PDF" of window "プリント"
        click menu button "PDF" of window "プリント"
        delay 1

        --キー下を２回押下してPDFで保管...を選択
        tell application "System Events" to keystroke (ASCII character 31)
        tell application "System Events" to keystroke (ASCII character 31)
        tell application "System Events" to keystroke return

        delay 2

        --ここは文字の選択を解除するため
        tell application "System Events" to keystroke (ASCII character 31)
        tell application "System Events" to keystroke (ASCII character 31)

        --ファイル名の入力
        tell application "System Events" to keystroke Start_val as string
        tell application "System Events" to keystroke "-" as string
        tell application "System Events" to keystroke Start_val + Incriment_Val - 1 as string
        delay 1
        tell application "System Events" to keystroke return

    end tell
end tell