Are you still interested in printing EXIF metadata? You can program an Apple Script to write the EXIF data (and other meta tags) to a text file and then print this file, like this:
(* Write Metadata tags to a file
Author: Leonie Dreschler-Fischer
To run this workflow, select some images in Aperture,
then start the workflow by pressing the "Run Button",
or install the workflow as service in ~/Library/Services and launch it from the Services menu in Aperture,
when prompted, enter a filename for the text output
*)
on write_info(im_version, f)
local nam, w, h, dat, dims, nl
local res
tell application "Aperture"
set dat to ""
set nl to "
"
try
set nam to "Name: "
set nam to "Version Name: " & (get the name of im_version as string)
writenamtof
writenltof
end try
try
set w to get width of im_version as string
set h to get height of im_version as string
set dims to " Dimensions: " & w & "x" & h & nl
writedimstof
end try
try
tell im_version
set dat to (value of EXIF tag "ImageDate") as string
end tell
set dat to " Image Date: " & dat & nl
writedattof
end try
try
local thekeywords
tell im_version
set thekeywords to (value of IPTC tag "keywords") as string
end tell
set thekeywords to " Keywords: " & thekeywords & nl
writethekeywordstof
end try
try
local rating, isflagged, ispicked
tell im_version
set rating to get the main rating of im_version as string
set isflagged to get flagged of im_version as string
set ispicked to get picked of im_version as string
end tell
set rating to " Rating: " & rating & ", flagged: " & isflagged & ", picked: " & ispicked & nl
writeratingtof
end try
try
local cam_make, cam_model, camera
tell im_version
set cam_make to (value of EXIF tag "Make") as string
set cam_model to (value of EXIF tag "Model") as string
end tell
set camera to " Camera: " & cam_make & " " & cam_model & nl
writecameratof
end try
try
local focal_length, aperture_value, shutter_speed, capture
tell im_version
set focal_length to (value of EXIF tag "FocalLength") as string
set aperture_value to (value of EXIF tag "ApertureValue") as string
set shutter_speed to (value of EXIF tag "Shutterspeed") as string
end tell
set capture to " Focal Length: " & focal_length & "mm, Aperture: f/ " & aperture_value & ", Shutter Speed: " & shutter_speed & "s" & nl
writecapturetof
end try
return nam
end tell
end write_info
on run {input, parameters}
(* Write EXIF info on all selected images to a file *)
if input is {} then error "Please select an image."
local outputFile, item_count, im, inf
set outputFile to choose file name with prompt "Output File name"
set the inf to ""
try
open for accessoutputFile with write permission
set the item_count to count of input
repeat with i from 1 to the item_count
set im to item i of input
set inf to write_info(im, outputFile)
end repeat
close accessoutputFile
tell application "TextEdit"
activate
openoutputFile
end tell
end try
return input
end run
This script can easily be extended to include more EXIF tags, like longitude and latitude. And you can wrap it as an Automator service to be run from the Services menu in Aperture. I put an Automator workflow for download on my webpage:
http://dreschler-fischer.de/FAQ/Scripts_Services/Entries/2012/2/8_Write_EXIF_Inf o_to_a_File.html
To run this service, install it in the "Services" folder in your user library; then select some images in Aperture, and select the service from the Aperture Services menu.
Regards
Léonie
