|
Hi Santa,
It's been a long long time I have done something in quark....
How about this approach...
- Add 1 inch to the page
- Shift all elements
tell
application
"QuarkXPress"
tell document 1
set tool mode to drag mode
set EverySelection to select every generic box
set thelist to bounds of current box as list
set newa to item 1 of thelist as real
set newb to item 2 of thelist as real
set newc to item 3 of thelist as real
set newd to item 4 of thelist as real
set bounds of current box to {newa + 1, newb, newc + 1, newd}
set pageHeight to get page height as real
set pageHeight to pageHeight + 1
set page height to pageHeight
end tell
end tell
Best regards,Jan
Op 23 juli 2015 om 12:34 schreef Brian Christmas <email@hidden>:
G’day Scripters.
I don’t think what I’m about to ask about is possible, but I’ve first posted on MacScripters, and the Quark Applescript forum, with no answers, so I’m turning to you learned folk.
I’m at present placing two text boxes at the top of a Quark 11 document, and reducing the top margin to it’s minimum of zero inches. I then have to set the
PPD of the
Device section of the Print Dialog to my actual printer so the text boxes print within the adjusted margins.
However, in order to ensure I don’t overlap any possible text or images, I’d like to add 1 inch to the top of the document, and place the text boxes within that added inch.
Trying to get the page height gives a figure such as 11” (eleven with an inch sign), which cannot be coerced to text or an integer.
Setting the page height to 12 sets it to 12 inches, but adds the extra at the bottom. Also however, the actual original page size could be any size at all.
Any advice as to whether this is possible, or advice that it’s impossible, please?
Regards
Santa
tell
application "QuarkXPress"
activate
repeat
until
exists
document
frontmost
delay 0.1
end
repeat
tell
document
frontmost
set
page height
to
12
# Was 11". Adds to bottom of page
set
top margin
to 0.0
end
tell
end
tell
|