home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00024_Script_24 < prev    next >
Text File  |  1997-10-14  |  891b  |  42 lines
  1. on stampa
  2.   global pm, gPropFont
  3.   inizializzastampa  
  4.   if not objectP(printer) then
  5.     if the machinetype = 256 then
  6.       set per to (char 1 of the moviepath&":\invenzio\pmatic.dll" )
  7.     else 
  8.       set per to "INVENZIONI:INVENZIO:PMATIC.XOB"
  9.     end if
  10.     closexlib per
  11.     EXIT
  12.   else
  13.     printer (mReset)
  14.     printer(mSetLandscapeMode, true)
  15.     printer (mNewPage)
  16.     printer (mStagePicture, 0, 0, 640, 480)
  17.     printer (mTextBox,0,400,printer(mGetPageWidth),printer(mGetPageHeight),false)
  18.     if printer(mDoJobSetup) = true then
  19.       updatestage
  20.       cursor 4
  21.       printer (mPrint)
  22.     end if
  23.     
  24.     printer (mdispose)
  25.     if the machinetype = 256 then
  26.       set per to (char 1 of the moviepath&":\invenzio\pmatic.dll" )
  27.     else 
  28.       set per to "INVENZIONI:INVENZIO:PMATIC.XOB"
  29.     end if
  30.     closexlib per
  31.   end if
  32.   
  33. end
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.