home *** CD-ROM | disk | FTP | other *** search
/ MACup 1998 February / Image.iso / showdata / ECKESHOP.Dxr / 00038_Print1.ls < prev    next >
Encoding:
Text File  |  1997-07-31  |  596 b   |  21 lines
  1. on PrintoMaticInit_Xtra
  2.   global printer, gpropfont, gmonofont, gxobjfile, Xtrapath
  3.   if the machineType = 256 then
  4.     set gpropfont to "arial"
  5.     set gmonofont to "courier new"
  6.     set gxobjfile to "pmatic.dll"
  7.   else
  8.     set gpropfont to "helvetica"
  9.     set gmonofont to "courier"
  10.     set gxobjfile to "pmatic.xobj"
  11.   end if
  12.   if not objectp(printer) then
  13.     set printer to new(xtra("printomatic"))
  14.   end if
  15.   if not objectp(printer) then
  16.     alert("There is no currently selected printer. Printing features are disabled.")
  17.   else
  18.     put register(printer, "PMAT130-135-01241")
  19.   end if
  20. end
  21.