![Smile :)](./images/smilies/icon_smile.gif)
By setting the printer code to print to PDF instead of the printer it spits out a high quality pdf image
![Smile :)](./images/smilies/icon_smile.gif)
Sorry to have bothered you all but it's good to know you are there.
Cheers
David
Moderators: FourthWorld, heatherlaine, Klaus, kevinmiller
Code: Select all
put it & ".pdf" into SavePdf
Code: Select all
on mouseUp
if the result is "Cancel" then exit mouseUp
set the printPaperOrientation to "portrait"
set the printMargins to 0,0,0,0
set the printPaperSize to "595,842"
ask file "Choose a file for the PDF:"
if it is not empty then
put it into SavePdf
open printing to pdf SavePdf
print this card from 0,0 to 595,842 into 0,0,900,1240
end if
close printing
end mouseUp
Code: Select all
on mouseUp
set the lockLocation of image "i1" to true
answer file "Choose a picture"
if it is not empty then
set the filename of image "i1" to it
end if
set the lockLocation of image "i1" to false
end mouseUp
Code: Select all
on mouseUp
grab me
end mouseUp
Code: Select all
on mouseDown
grab me
end mouseDown
Code: Select all
on mouseUp
answer file "Choose a picture"
if it is not empty then
set the filename of image "i1" to it
end if
put the formattedWidth of image "i1" into nativeWdth
put the formattedHeight of image "i1" into nativeHgt
put the width of graphic "maxD" into maxWdth
put the height of graphic "maxD" into maxHgt
put constrainedDimensions(nativeWdth,nativeHgt,maxWdth,maxHgt) into newDimensions
set the width of image "i1" to item 1 of newDimensions
set the height of image "i1" to item 2 of newDimensions
set the loc of image "i1" to the loc of graphic "maxD"
end mouseUp
Code: Select all
on scrollbarDrag pScrollValue
set the angle of image "i1" to pScrollValue
end scrollbarDrag
Code: Select all
on scrollbarDrag pScrollValue
set the height of image "i1" to pScrollValue
set the width of image "i1" to pScrollValue
end scrollbarDrag
Code: Select all
set the loc of field "theText" to the loc of me