Yeah, it's strange... all the docs seem to say that you can just go
with frames, and that worked for me in a project with text and graphics
interspersed. But, when I tried to do just images, I got the same
results.
The below is a bit messy, and will need to be tweaked (it's still
squishing the last image on the page), but it's a start. I'd polish it
up, but I have a deadline of my own...
---------------------
on mPrintStuff
myDoc = new(xtra "PrintOMatic")
if not objectP(myDoc) then exit
page_width = getpageWidth(myDoc)
page_height = getpageHeight(myDoc)
print_top = 14
print_bottom = page_height - 24
current_y = print_top
newPage(myDoc)
page_num = 1
setPage(myDoc, page_num)
newFrame myDoc, Rect(0, print_top, page_width, print_bottom), FALSE
startmem = member("startPics").number
repeat with i = 1 to 200
temp_mem = member(startmem+i)
if (current_y + temp_mem.height > print_bottom) then
current_y = print_top
pageBreak(myDoc)
page_num = page_num + 1
newPage(myDoc)
newFrame myDoc, Rect(0, print_top, page_width, print_bottom), FALSE
setPage(myDoc, page_num)
else
current_y = current_y + temp_mem.height
end if
append(myDoc), member(startmem+i)
end repeat
if dojobsetup(MyDoc) = TRUE then print(MyDoc)
end
---------------------
Does anyone know how to print a lot of pictures at once using
Printomatic?
I'm having a problem.
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 myPic = 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!]
