set printData to {}
set abGroupName to "Friends"
try
tell application "Address Book"
set {fName, lName, bDate} to {first name, last name, birth date} ¬
of (people of group abGroupName whose birth date is not missing value)
end tell
set listLength to length of fName
if listLength ≠ 0 then
set AppleScript's text item delimiters to " "
repeat with i from 1 to listLength
set end of printData to ¬
(get {fName's item i, (lName's item i) & ":", bDate's item i's short date string}) ¬
as string
end repeat
set oldTIDS to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set printData to printData as text
set AppleScript's text item delimiters to oldTIDS
return printData
else
error "NO BIRTHDAYS FOUND!"
end if
on error errMsg number errNum
set sep to "=============================="
set e to sep & return & "Error: " & errMsg & return & sep & return ¬
& "Error Number: " & errNum & return & sep
# beep
# display dialog e
end try