[ 返信 ]

Re^3: マゼンタ版を透明もしくはカットしたい

--上の続きです。この文章は不要です。

on paperset()
tell application "System Events"
tell process "AdobeAcrobat"
set frontmost to true
click menu item "プリント設定..." of menu "ファイル" of menu bar 1
end tell
end tell
end paperset
on doOK()
tell application "System Events"
tell process "AdobeAcrobat"
try
click button "OK" of window 1
end try
end tell
end tell
end doOK
on PdfPrint()
tell application "System Events"
tell process "AdobeAcrobat"
set frontmost to true
click menu item "プリント..." of menu "ファイル" of menu bar 1
click button "詳細設定…" of window "プリント"
delay 0.5
tell window "詳細設定"
set pos to position
set x0 to item 1 of pos
set y0 to item 2 of pos
select row 1 of outline 1 of scroll area 1
tell group "カラー"
click pop up button 1
click menu item "色分解" of menu 1 of pop up button 1
tell group "インキ"
set x1 to x0 + 258
repeat with i in {0, 1, 2}
set y1 to y0 + 359 + i * 18
set winpos to x1 & "," & y1
do shell script "cliclick c:" & winpos
end repeat
end tell
end tell
click button "OK"
end tell
click button "プリント" of window "プリント"
end tell
end tell
end PdfPrint

[17944] -e (2015/04/22 Wed 11:43)