home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00150_Print1.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  685 b   |  25 lines
  1. on PrintoMaticInit_xobject
  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 voidp(Xtrapath) then
  13.     set Xtrapath to EMPTY
  14.   end if
  15.   if not objectp(printer) then
  16.     openXLib(Xtrapath & gxobjfile)
  17.     set printer to PrintOMatic(mnew)
  18.   end if
  19.   if not objectp(printer) then
  20.     alert("There is no currently selected printer. Printing features are disabled.")
  21.   else
  22.     printer(mRegister, "PMAT130-135-01241")
  23.   end if
  24. end
  25.