Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
cXtraCalendar
base64 encode/decode
Vector Shape - Create Ellipse
Image Xport
Dave Client
lingo to php with browser on stage
Auto Save and Load Text
Generic behavior to get Key State.
SetMouseLoc Xtra
Making a simple game
 

 

 

Behavior PrintOmatic lite behavior

Added on 6/10/1999

 

Compatibilities:
behavior D6_5 Mac PC

Required Xtras:
PrintOMatic

This item has not yet been rated

Author: StuartAcklam (website)

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  

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail