Re: Quark 6.5 Contact Sheet?
Re: Quark 6.5 Contact Sheet?
- Subject: Re: Quark 6.5 Contact Sheet?
- From: Phong Le <email@hidden>
- Date: Wed, 2 Feb 2005 21:13:08 -0800
set col to 5
set row to 5
set image_width to 4.5
set image_height to 3.5
tell application "Finder"
set sourcefolder to (choose folder) as string
set file_list to {}
set file_list to the name of every file of (alias sourcefolder)
end tell
set photocount to count (file_list)
set actualcount to 1
repeat until photocount ≤ actualcount
tell application "QuarkXPress Passport"
activate
make document at beginning
tell default document 1
set page width to (col * image_width) as string
set page height to (row * image_height) as string
end tell
close document 1 saving no
make document at beginning
tell default document 1
set page width to (col * image_width) as string
set page height to (row * image_height) as string
end tell
repeat with x from 1 to row
repeat with y from 1 to col
if actualcount is less than photocount then
set filepath to sourcefolder & item actualcount of file_list
set xposition to (image_width) * (x - 1)
set yposition to (image_height) * (y - 1)
set xend to (xposition + image_width)
set yend to (yposition + image_height)
tell page 1 of document 1
make picture box at beginning with properties {yposition, xposition, yend, xend}, color:"None"}
tell picture box 1
set image 1 to alias (filepath)
try
set bounds of image 1 to centered
set bounds of image 1 to exact fit
end try
end tell
end tell
end if
set actualcount to actualcount + 1
end repeat
end repeat
close document 1 saving ask
end tell
end repeat
Cheers
email@hidden
On Feb 2, 2005, at 7:05 PM, Jason Bourque wrote:
Hello,
Does anyone have a script that creates a contact sheet from a folder with
Quark 6.5 that you would be willing to share? I have a bunch of photo's
1000+ to print for my boss and need a little help.
Thanks,
Jason Bourque
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden