PrintOmatic lite behavior

 

Compatibilities: Required Xtras: PrintOMatic

This item has not yet been rated

PrintOmatic lite behavior

property pPreOrPri, pMember, pName property pRect1, pRect2, pRect3, pRect4 --sets up the borders property pOriantation  -- sets up Landscape of Portrait on mouseUp me      cursor 4   set doc = new (xtra "printomatic_lite")      if not objectp(doc) then exit      setDocumentName doc, pName   setMargins doc, rect(pRect1, pRect2, pRect3, pRect4)      if pOriantation = "Portrait" then     setLandscapeMode doc, FALSE   else     setLandscapeMode doc, True   end if      append doc, member pMember      cursor -1      -- options are "Print", "Preview", "Both"   if pPreOrPri = "Print" then     if doJobSetup(doc) then       print doc     end if   end if      if pPreOrPri = "Preview" then     if doJobSetup(doc) then       printPreview doc     end if   end if      if pPreOrPri = "both" then     if doJobSetup(doc) then       printPreview doc       print doc     end if   end if      set doc = 0 end on getPropertyDescriptionList      set p_list =[¬ #pName:¬   [#comment: "Name of Job:", #format: #string, #default: "StusJob" ], #pMember:[#comment: "Which Member:", #format: #member, #default: "" ], #pPreOrPri: [ #comment:   "Options of print:" ,#format:   #string, #default:   "Print", #range :["Print", "Preview", "Both"] ], #pOriantation: [ #comment:   "Oriantation:" ,#format:   #string, #default: "Portrait", #range :  ["Portrait", "Landscape"]],  #pRect1: [ #comment:   "Border left:" ,#format:   #integer, #default: 32], #pRect2: [ #comment:   "Border top:" ,#format:   #integer, #default: 32], ¬   #pRect3: [ #comment:   "Border right:" ,#format:   #integer, #default: 32], ¬   #pRect4: [ #comment:   "Border bottom:" ,#format:   #integer, #default: 32] ]      return p_list      end on getBehaviorDescription   return "simple PrintOmaticLite stuff......." &return& "by Stuart M Acklam, 7Feb98 " end getBehaviorDescription

Upload Provided by ABCUpload ASP