home *** CD-ROM | disk | FTP | other *** search
/ Studylink Australia 1999…ovember (Revised Edition) / STUDYLINK.ISO / mac / Proj / p5Print-preview.cst / 00001_PrintModule.ls next >
Encoding:
Text File  |  1999-11-17  |  429 b   |  25 lines
  1. on createXtraInstance   
  2.   -- Create instance of PrintOmatic Lite xtra  
  3.   set doc = new(xtra "PrintOmatic_Lite")
  4.   
  5.   return (doc)  -- returns the Print instance for use 
  6.   
  7. end
  8.  
  9. on  deleteXtraInstance doc
  10.   -- delete the xtra instance
  11.   
  12.   set doc = 0
  13.   
  14. end
  15.  
  16. on PrintDocument doc 
  17.   -- Prints if user clicks on Print in the Print dialog box
  18.   -- if doJobSetup(doc) then print doc 
  19.   
  20.   --print doc
  21.   printPreview(doc)
  22.   
  23. end
  24.  
  25.