home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMW 3 Series Presentation
/
BMW_3Series_Presentation_CD.bin
/
Xtras
/
POMatic
/
Win
/
PMATIC.DIR
/
00017_Script_17
< prev
Wrap
Text File
|
1997-01-30
|
2KB
|
63 lines
on printDocumentation
global gMonoFont, gPropFont
set doc = new (xtra "PrintOMatic")
if not objectP(doc) then
Alert "There is no currently selected printer. Printing features are disabled."
else
cursor 4 -- because this much stuff takes a while to compile...
setDocumentName doc, "PrintOMatic Xtra Documentation"
setMargins doc, rect(72,90,72,72) -- COMMENTING THIS IN WILL CRASH AT THE POINT NOTED BELOW
--
put getPageWidth(doc) into w
put getPageHeight(doc) into h
-- setPageNumSymbol doc, "▐"
--
-- setTextFont doc, gPropFont
-- setTextSize doc, 10
-- setTextStyle doc, "normal,italic"
--
-- -- page header left side
-- setTextJust doc, "left"
-- drawText doc, "PrintOMatic Xtra Documentation", Point(0,-15)
--
-- -- page header right side
-- setTextJust doc, "right"
-- drawText doc, "printed"&&the date, point(w,-15)
--
-- -- page header line underneath
-- drawLine doc, point(0,-12), point(w,-12)
--
-- -- page footer right side
-- drawText doc, "page ▐", point(w,h+20)
--
-- -- make the first page
newPage doc
-- put a white box over the header on page 1
setGray doc, 0
drawRect doc, rect(0,-22,w+1,0), TRUE
setGray doc, 100
-- declare the frame for the text
newFrame doc, Rect(0,0,w,h), FALSE
-- append the document title
setTextJust doc, "left"
append doc, member "doctitle", member "macVersion", member "winversion", RETURN
-- and a picture and the contents
append doc, member "illustration", RETURN, castlib "documentation" -- THIS CRASHES IF SETMARGINS ABOVE IS USED
cursor -1
printPreview doc
-- get rid of the document object
set doc = 0
end if
end printDocumentation