home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Funktion.dcr / 00008_PrintHandler.ls < prev    next >
Encoding:
Text File  |  2001-08-16  |  691 b   |  30 lines
  1. on HdlePrintTheStage
  2.   global _PCdruckt
  3.   doc = new(xtra("PrintOMatic"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "ShotOfTheStage")
  8.   setProgressMsg(doc, EMPTY)
  9.   hideMessages(doc, 0)
  10.   setProgressLoc(doc, point(-100, -100))
  11.   setMargins(doc, rect(24, 24, 24, 24))
  12.   setLandscapeMode(doc, 1)
  13.   setTextJust(doc, "centered")
  14.   w = getPageWidth(doc) * 0.94999999999999996
  15.   h = getPageHeight(doc) * 0.94999999999999996
  16.   drawStagePicture(doc, rect(0, 0, w, h))
  17.   append(doc, EMPTY)
  18.   if the shiftDown then
  19.     printPreview(doc)
  20.   else
  21.     if doJobSetup(doc) then
  22.       _PCdruckt = 1
  23.       print(doc)
  24.       doc = 0
  25.     else
  26.       _PCdruckt = 0
  27.     end if
  28.   end if
  29. end
  30.