Need help creating this script
Need help creating this script
- Subject: Need help creating this script
- From: Ari Winokur <email@hidden>
- Date: Wed, 29 May 2002 16:40:49 -0400
Hey All,
I work for a publishing company and am working to create a script to
simplify my tasks. I currently have a script that basically does what I
need. However I have to run the script over and over for each document that
I need to work with. Please take a look at my current script (included
below) and get back to me on any ideas to save me the trouble of having to
restart the script over and over. In case it is not clear from the script I
often have to do multiple things with one document.
Thanks,
Ari W.
--------------
Ari Winokur
Multimedia Manager
Heldref Publications
1319 Eighteenth Street, NW
Washington, DC 20036
email@hidden
email@hidden
===Begin Script===
tell application "QuarkXPress(tm)"
set printer type of print setup of front document to "Acrobat Distiller"
beep
set dlgResult to display dialog "Choose a page width:" buttons {"8.5 in", "6
in", "Cancel"} default button 1 with icon note
if button returned of dlgResult = "8.5 in" then
set strPageWidth to "51p"
else if button returned of dlgResult = "6 in" then
set strPageWidth to "36p"
end if
set paper width of print setup of front document to strPageWidth
beep
set dlgResult to display dialog "Is this an 'As Printed PDF'?" buttons
{"Yes", "No", "Cancel"} ,
default button 1 with icon note
if button returned of dlgResult = "Yes" then
set strFIlename to name of front document
else if button returned of dlgResult = "No" then
set dlgResult to display dialog "Name the file:" default answer
"File Name" with icon note
set strFIlename to text returned of dlgResult
end if
set strPostScriptFolder to "Heldref Laptop:Desktop Folder:" -- The Hard
Drive name mus be changed appropriately for any given computer.
set strFullFilePath to (strPostScriptFolder & strFIlename) as string
print front document PostScript file strFullFilePath
end tell
beep
===End Script===
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.