You are after frames.
Here's the bare bones of what I use:
myDoc = new(xtra "PrintOMatic")
if not objectP(myDoc) then exit
w = getpageWidth(myDoc)
h = getpageHeight(myDoc)
newPage(myDoc)
newFrame MyDoc, Rect(0, 14, w, (h - 24)), FALSE
append(myDoc), print_output
--Add whatever appends you need to
if dojobsetup(MyDoc) = TRUE then
print(MyDoc)
end if
Please help. I need an answer fast for a program due tonight please.
I am using a registered printomatic
When I use the append command for a bunch of BMPS, when it hits the
bottom
of the page it squashes the pictures down really small, and it is also
seems
to be missing a bunch of pictures. How do tell printomatic to just
make a
new page when it hits the bottom and not to try to squash the pics down
really small. How do I get printomatic to keep the original rect of the
pictures, and simply make new pages as necessary?
Here's my code .
on doPrint
set doc = new (xtra "PrintOMatic")
if not objectP(doc) then
Alert "There is no currently selected printer"
else
setDocumentName doc,"Test"
setLandscapeMode doc, TRUE
newPage doc
repeat with myWord = 1 to 100
append doc, member myPic of castlib "Quiz", True
end repeat
printPreview doc
if doJobSetup(doc) = true then print doc
set doc = 0 -- get rid of the document object
end if
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
[email protected] (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
