Bay Six Software

[Jaws]

I have an application that can generate some reports. Several of these reports are longer then one page. Using a graphics window to create a page and then doing a "print svga" function allows me to print all the pages. The problem is that they come out as individual print files so if someone else prints during the creation process, their stuff ends up in the middle of my report.

The following code shows the problem.

nomainwin
WindowWidth = 800
WindowHeight = DisplayHeight
open "Printable Form" for graphics as #form
#form "trapclose [quit]"

#form "down"
#form "backcolor 220 220 220"
#form "size 2"
#form "place 1 1 ; boxfilled 700 110"
#form "font arial 16 bold"
#form "place 20 34"
#form "\Software Mail-in Order Form"
#form "font arial 10"
#form "\Mega2 Super Corporation\PO Box 102\Anytown, PA 11701\"
#form "flush"

confirm "Send to printer?"; answer
if answer then #form "print svga"

#form "CLS"
#form "down"
#form "backcolor 220 220 220"
#form "size 2"
#form "place 1 1 ; boxfilled 700 110"
#form "font arial 16 bold"
#form "place 20 34"
#form "\Software Mail-in Order Form - Page 2"
#form "font arial 10"
#form "\Mega2 Super Corporation\PO Box 102\Anytown, PA 11701\"
#form "flush"

if answer then #form "print svga"

wait
close #form
end

[quit]
close #form
end


If anyone has any way of preventing this problem, I would appreciate the help.

Jim

PS - The print files all come out with file names that I think is the last thing I printed. Is there any way around that?

[STPendl]

You might be able to use GETBMP to capture the current page, display the next, capture that too and so on.
After all the pages are collected create a graphics box with a vertical scroll range of the size of all pages.
Add one page below the other to the graphics box using DRAWBMP and flush once.
Now you should get all the pages printed in one go.