home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 04282.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  1.1 KB  |  44 lines
  1. on initprinter
  2.   global printer, gPropFont, gMonoFont, hook
  3.   unLoad()
  4.   if the machineType = 256 then
  5.     set gPropFont to "arial"
  6.     set gMonoFont to "courier new"
  7.     if not objectp(printer) then
  8.       openXLib(the moviePath & "pmatic.dll")
  9.       set printer to pmatic(mnew)
  10.       printer(mRegister, "10049979-791")
  11.     end if
  12.   else
  13.     if not objectp(printer) then
  14.       openXLib(the moviePath & "PrintOMatic.XObj")
  15.       set printer to PrintOMatic(mnew)
  16.       printer(mRegister, "10552447-123")
  17.     end if
  18.   end if
  19.   if not objectp(printer) then
  20.     alert("There is no currently selected printer. Printing features will be disabled." & RETURN & RETURN & "Error code = " & string(printer))
  21.   end if
  22.   if not objectp(hook) then
  23.     set hook to framehook(mnew)
  24.     set the perFrameHook to hook
  25.   end if
  26. end
  27.  
  28. on printcard
  29.   global printer
  30.   unLoad()
  31.   initprinter()
  32.   if not objectp(printer) then
  33.     alert("There is no currently selected printer. Printing features are disabled.")
  34.   else
  35.     cursor(4)
  36.     printer(mReset)
  37.     printer(mNewPage)
  38.     printer(mStagePicture, 0, 0, 480, 360)
  39.     printer(mPrint)
  40.     cursor(-1)
  41.   end if
  42.   stopprint()
  43. end
  44.