tell application "Keynote" tell application "Finder" to set pathToDesktop to (path to desktop folder) as string set theFilename to the name of first slideshow set newFilename to pathToDesktop & theFilename & "-print" display dialog "Skipping slides in presentation ?" & theFilename & "?, which are obsolete for the print-out. This may take a while." activate repeat with theSlide in every slide of first slideshow set theTitle to the title of theSlide if notes of theSlide contains "handout-noprint" then set skipped of theSlide to 1 end if end repeat save first slideshow in newFilename display dialog "The presentation has been modified and saved on your Desktop:: " & newFilename & " ATTENTION: Do NOT overwrite your original prsentation with the modified print-version by accidently pressing save!" end tell