(DTPtechNote:632) Re: print Safari

[せうぞー <anonymous at unknown-host>]

まあ、こんなかんじか。。。
もうちょっと手を入れてもおもしろいかもしれないけど。。。
htmlの判定とか、drag&doropとか、、、

tell application "Finder"
	set aa to files of (choose folder)
end tell
repeat with i in aa
	tell application "Safari"
		activate
		open i as alias
		tell application "System Events"
			tell process "Safari"
				keystroke "p" using command down
				keystroke return
			end tell
		end tell
		close document 1
	end tell
end repeat