Director: stampare più immagini?

Di: freetime | 26/09/2020 17:12:46
Con questo script posso stampare una sola immagine per volta
property pName, pDirectory
property pOrientation --setta Landscape o Portrait
property pRect1, pRect2, prect3, pRect4 -- settano i bordi
on getPropertyDescriptionList me
list = [:]
addProp list, #pName, [#comment: "Nome dell'immagine da stampare:", #format: #string, #default: "immagine da stampare"]
addProp list, #pOrientation, [#comment: "Oriantation:", #format: #string, #default: "Portrait", #range: ["Portrait", "Landscape"]]
addProp list, #pDirectory, [#comment: "Cartella delle foto:", #format: #string, #default: "stampe"]
addProp list, #pRect1, [#comment: "Bordo a sinistra:", #format: #integer, #default: "32"]
addProp list, #pRect2, [#comment: "Bordo superiore:", #format: #integer, #default: "32"]
addProp list, #pRect3, [#comment: "Bordo a destra:", #format: #integer, #default: "32"]
addProp list, #pRect4, [#comment: "Bordo inferiore:", #format: #integer, #default: "32"]
return list
end
on mouseUp me
set doc = new (xtra "printomatic_lite")
if not objectp(doc) then exit
if pOrientation = "Portrait" then
setLandscapeMode doc , FALSE
else
setLandscapeMode doc , TRUE
end if
(the searchPath).add(the pathName & pDirectory)
member("dummy").filename = pName
append doc, member "dummy"
if doJobSetup(doc) = TRUE then print doc
set doc = 0
end
Qualcuno sa dirmi come lo posso modificare per stampare 16 o più immagini contemporaneamente?

Risposte


Nessuna risposta trovata!