Hat jemand ne Ahnung wie ich mit Automator einen Ordner mit 4000 TIF's nach PDF per Batch konvertieren kann?
Mit Automator kann ich ja die TIF's mit Vorschau aufmachen, dann ausdrucken, aber da kann ich zwar Drucker, aber nicht nach PDF drucken auswählen... oder ich habs nicht gefunden.

Any help?

danke schonmal

Erich

Folder Action script@@convert - PostScript to PDF.scpt

in Programme/AppleScript/Example Scripts/Folder Action Scripts

oh, das geht ja gar nicht:-/


Aber dieser Script der geht:-D

Als Programm speichern und als droplet benutzen


TIF2PDF

property extension_list : {"tif", "tiff"}
-- nur files dieses typs

property prog_name : "Preview"
-- Das Programm welches Drucken soll

global file_name, trim_char, trim_chars

on run
display dialog "Save as PDF" & return & return & ¬
"Drag files or folders of files onto this droplet to save them as PDF. " & ¬
return & return & ¬
"Supported file types include > tif files." buttons {"OK"} default button 1
end run

-- This droplet processes both files or folders of files dropped onto the applet
on open these_items
repeat with i from 1 to the count of these_items
set this_item to (item i of these_items) as alias
set the item_info to the info for this_item
if folder of the item_info is true then
process_folder(this_item)
else if (alias of the item_info is false) and ¬
(the name extension of the item_info is in the extension_list) then
set trim_char to name extension of the item_info
-- display dialog trim_char
trim_item(this_item)
process_item(this_item)
end if
end repeat
end open

-- this sub-routine processes folders
on process_folder(This_folder)
set these_items to list folder This_folder without invisibles
repeat with i from 1 to the count of these_items
set this_item to ((This_folder as text) & (item i of these_items)) as alias
set the item_info to the info for this_item
if folder of the item_info is true then
process_folder(this_item)
else if (alias of the item_info is false) and ¬
(the name extension of the item_info is in the extension_list) then
set trim_char to name extension of the item_info
trim_item(this_item)
process_item(this_item)
end if
end repeat
end process_folder

on trim_item(this_item)
set trim_chars to "." & trim_char
set the item_info to the info for this_item
set file_name to the name of item_info
set x to the length of the trim_chars
repeat while file_name ends with the trim_chars
set file_name to characters 1 thru -(x + 1) of file_name as string
end repeat
end trim_item

-- this sub-routine processes files
on process_item(this_item)
tell application prog_name to open this_item
delay 2
tell application "System Events"
tell application process prog_name
set frontmost to true
keystroke "p" using {command down}
repeat until window 1 exists
delay 0.1
end repeat
set pdf_pos to position of UI element 2 of UI element 1 of sheet 1 of window 1
set new_place to {(item 1 of pdf_pos) + 30, (item 2 of pdf_pos) + 30}
click at pdf_pos
delay 1
click at new_place
delay 1
keystroke file_name
delay 1
click button "Sichern" of window "Sichern"
delay 2
keystroke "w" using {command down}
end tell
end tell
end process_item