home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / guida.dir / 00891_Script_891 < prev    next >
Text File  |  1997-10-07  |  2KB  |  71 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. --on copiapc
  43. --  global copyObj, savePicHandle, pictureFlag
  44. --  linkdll "dataproj"
  45. --  put 0 into rT
  46. --  put 0 into rL
  47. --  put 480 into rB
  48. --  put 640 into rR
  49. --  put dataproj (mNew ) into co
  50. --  co(mSetCaptureRect,rt,rl,rr,rb)
  51. --  co (mCaptureImage,"c:\scienze\tmp.bmp")
  52. --  co(mDispose)
  53. --  set the fileName of cast "rifcopia.bmp" to "c:\scienze\tmp.bmp"
  54. --  copyToClipBoard cast "rifcopia.bmp"
  55. --  unlinkdll  "dataproj"
  56. --end
  57. --
  58. --on copiamac
  59. --  global copyObj, savePicHandle, pictureFlag
  60. --  linkdll "stagetc"
  61. --  put 0 into rT
  62. --  put 0 into rL
  63. --  put 480 into rB
  64. --  put 640 into rR
  65. --  set myObj =  StageToCast( mNew, 0, 0, 480, 640 )
  66. --  set the picture of cast 3050 = myObj( mGetHandle )
  67. --  copyToClipBoard cast 3050
  68. --  myobj(mDispose)
  69. --  unlinkdll  "stagetc"
  70. --end
  71.