> I wish to print out jpegs (photos) from my movie. I thought that
> Print-o-Matic was the way to go but I am unable to print anything. Only
> blank pages appear. My printer is working properly, by the way.
Hi Genevieve,
This worked beautifully with over 700 photographic images, though if you
need security on the images I wouldn't recommend it.
I took the approach to keep the images seperate and swap the filename of a
default member as needed to print.
Admittedly I am displaying a users choice in a popup MIAW and then I print
from there but this may give you some ideas.
I use a 24 bit placeholder image that is swapped by a call from a thumbnail.
Just on a side note, I have to say I'm still amazed that basic functionality
like printing is not native within Director- anyway thats a subject for
another thread.
HTH
Brad
Just had a thought: if you have simple printing needs, you could just set a
property in the print behaviour (GPDL) with your image filename and have it
swap the member prior to printing then change it back to default when done..
-- Lingo below watch line breaks----
(Used in a movie script to swap the member image)
on hAssemble myimage
-- images are in a folder called "images" (funnily enough)
--gGlobalList.pathdelim is set on startMovie to the last char of the
moviePath
ImagePath= "@" & gGlobalList.pathdelim & "images" & gGlobalList.pathdelim
& myimage & pExt
-- you end up with a string like @\images\mypicture.jpg on a windows machine
when pExt=".jpg"
-- member("picture") is the default image member
member("picture").filename=ImagePath
updatestage
end
(Print button behaviour with thanks to Stuart M Acklam)
property pPreOrPri, pTitle, pName
property pRect1, pRect2, pRect3, pRect4 --sets up the borders
property pOriantation -- sets up Landscape of Portrait
property pMember1,pMember2,pMember3
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, pTitle & RETURN & RETURN
append doc, member (pMember1)
append doc, member (pMember2)
append doc, member pMember3
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: "Catalogue
Image" ], \
#pTitle:[#comment: "Header Text:", #format: #string, #default: "Document
Title" & RETURN & "Second Line" & RETURN & "Third Line" & RETURN & "Fourth
Line" ],\
#pMember1:[#comment: "Which image Member first:", #format: #member,
#default: "" ],\
#pMember2:[#comment: "Which Member second:", #format: #member, #default:
"" ],\
#pMember3:[#comment: "Which Member third:", #format: #member, #default:
"" ],\
#pPreOrPri: [ #comment: "Options of print:" ,#format: #string,
#default: "Print", #range :["Print", "Preview", "Both"] ],\
#pOriantation: [ #comment: "Orientation:" ,#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 <Email:[EMAIL PROTECTED]>"
end getBehaviorDescription
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
[EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
