I have the following script, which seems to be working unto a point. No matter what I can't seem to print the full height of the card. I have designed the card with a navigation area at the top which takes about 50pts, so I want the top of the card to start at 55. My card has been designed for an A4 page, so my tPageSize should contain 842. I Add 55 to this and get 897 for the bottom of the card I want to print. Just to try and get it working, I tried printing from 0,55 to 1000, 1000 but I still don't capture the bottom of the card, Anyone got any ideas where I could be going wrong.
Thanks
Jalz
Code: Select all
global gPageOrientation, gMarginLeft, gMarginTop, gMarginRight, gMarginBottom
on mouseUp
set the printPaperOrientation to gPageOrientation
--set the printMargins to gMarginLeft, gMarginTop, gMarginRight, gMarginBottom
put printPaperSize into tPageSize
set itemdelimiter to comma
if gPageOrientation is "Portrait" then
put item 1 of tPageSize into tPageWidth
put item 2 of tPageSize into tPageHeight
else
put item 1 of tPageSize into tPageHeight
put item 2 of tPageSize into tPageWidth
end if
open printing with dialog
set the printMargins to 0,0,0,0
if the result is "Cancel" then exit mouseUp
lock screen
repeat with i = 1 to number of cards
put the short name of this card of stack "Print" into tCardName
put "Grp_" & tCardName into tGrpName
put the vScroll of group tGrpName into tScrollPosition
setVisiblePrintBar false
set the backgroundcolor of this card to "white"
set the borderwidth of graphic "paper" to 0
//set the borderColor of object to {empty | colorName | RGBColor}
set the vScroll of group tGrpName to 0
--leftTop --rightBottom
print card i from 1,55 to 1000 , 1000 -- 597,897
set the vScroll of group tGrpName to tScrollPosition
set the backgroundcolor of this card to empty
set the borderwidth of graphic "paper" to 1
setVisiblePrintBar true
end repeat
unlock screen
close printing -- sends job to printer
end mouseUp