lpstat -a 

set currPrinter to last word of (do shell script "lpstat -d")
set printer_list to {}
set availablePrinters to paragraphs of (do shell script "lpstat -a")
repeat with i in availablePrinters
    set end of printer_list to word 1 of i
end repeat
set choice to choose from list printer_list with prompt "select printer" default items {currPrinter}
if choice is false then return
do shell script "lpoptions -d" & item 1 of choice

tell application "System Preferences" to quit
delay 1
tell application "System Preferences" to activate
tell application "System Preferences"
    set current pane to pane "com.apple.preference.printfax"
end tell