home *** CD-ROM | disk | FTP | other *** search
/ Studylink Australia 1999…ovember (Revised Edition) / STUDYLINK.ISO / pc / proj / p5print.cst / 00001_PrintModule.ls next >
Encoding:
Text File  |  1999-11-18  |  430 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.