Watch a folder and print files that are added to it

Print Folder.scpt

-- Appropriated from: http://hints.macworld.com/article.php?story=20041104011839378
on adding folder items to this_folder after receiving these_items
  try
    tell application "Finder"
      repeat with i from 1 to number of items in these_items
        try
          set this_item to item i of these_items
          set the path_string to this_item as string
          set the final_path to POSIX path of the path_string
          do shell script "/usr/bin/lp '" & final_path & "'"
        on error error_message
          tell application "Finder"
            display dialog "Error for item " & (this_item as string) ¬
             & ": " & error_message buttons {"Continue", "Cancel"} ¬
             default button 1 giving up after 120
          end tell
        end try
      end repeat
    end tell
  on error error_message
    tell application "Finder"
      display dialog error_message buttons {"Cancel"} ¬
       default button 1 giving up after 120
    end tell
  end try
end adding folder items to