I just posted Set Default Printer Macro (v9.0.6), a Keyboard Maestro version of that longer AppleScript.
For more information, see the wiki Searching the Forum for Answers section.