[swf2pdf]SWFファイルをPDFに変換する（といってもPDFに印刷する感じ）: [FORCE]

[swf2pdf]SWFファイルをPDFに変換する（といってもPDFに印刷する感じ）

前提にFlashが無い事がありますが
SWFファイルをイメージ化する必要があって
まずはPDFにする事を考えました。

が！
複雑な構造のSWFファイルは正しく出力されない事が多い
（私の要件は満たしましたが...汗）

CUPS-PDF[LINK]を使って
PDFへプリントします。

そんなワケで
CUPS-PDFをインストール済みが前提条件です

プリンター設定でデフォルトの用紙サイズ等をあらかじめ設定しておく事が必要です

Flash Player archives 版も必要です

----------------------------------------------ドロップの始まり
on open DropObj
-----------------------------------------------必要なアプリケーションを起動しておく
tell application "Flash Player"
launch
activate
delay 2
end tell
tell application "System Events"
launch
activate
end tell
tell application "CUPS-PDF"
launch
activate
end tell

tell application "Finder"
repeat with ObjFiles in DropObj
--------------------------------------------------ファイル名を取得
set theName to name of ObjFiles
------------------------------------------------パスを取得
set theAlias to ObjFiles as alias
------------------------------------------------Flash Playerを起動
tell application "Flash Player"
activate
------------------------------------------------ファイルを開く
open theAlias
------------------------------------------------２秒待つ
delay 2
------------------------------------------------開いたウィンドウ
tell window 1
------------------------------------------------100%表示に変更
tell application "System Events"
keystroke "1" using command down
end tell
------------------------------------------------１秒待つ
delay 1
------------------------------------------------プリントコマンド実行
tell application "System Events"
keystroke "p" using command down
end tell
------------------------------------------------１秒待つ
delay 1
------------------------------------------------リターン押す
tell application "System Events"
keystroke return
end tell
------------------------------------------------１秒待つ
delay 1
------------------------------------------------リターン押す
tell application "System Events"
keystroke return
end tell
------------------------------------------------１秒待つ
delay 1
end tell
------------------------------------------------１秒待つ
delay 1
------------------------------------------------ウィンドウを閉じる
close window 1
------------------------------------------------１秒待つ
delay 1
end tell
end repeat
end tell
end open