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