Imprimir con lingo

Lo que debes utilizar es el Xtra PrintOMatic que viene incluido con Director.
Lo que está a continuanción es un script de ejemplo que viene con la documentación, espero te sirva y por cualquier duda me cuentas.
En las lineas en que aparece esto
Append doc, member "doctitle", member "version", RETURN
DOCTITLE ES EL NOMBRE DEL CAST DE TEXTO Y DEBES REEMPLAZARLO POR EL NOMBRE DE TU CAST.
Saludos
Claudio
On printDocumentation
set doc = new (xtra "PrintOMatic")
if not objectP(doc) then
Alert "There is no currently selected printer. Printing features are disabled."
else
cursor 4 -- because this much stuff takes a while to compile...
setDocumentName doc, "PrintOMatic Xtra Documentation"
SetMargins doc, rect(72,90,72,72) -- COMMENTING THIS IN WILL CRASH AT THE POINT NOTED BELOW
--
put getPageWidth(doc) into w
put getPageHeight(doc) into h
-- SetPageNumSymbol doc, "Þ"
--
-- SetTextFont doc, gPropFont
-- SetTextSize doc, 10
-- SetTextStyle doc, "normal, italic"
--
-- -- Page header left side
-- SetTextJust doc, "left"
-- DrawText doc, "PrintOMatic Xtra Documentation", Point(0,-15)
--
-- -- Page header right side
-- SetTextJust doc, "right"
-- drawText doc, "printed"&&the date, point(w,-15)
--
-- -- Page header line underneath
-- DrawLine doc, point(0,-12), point(w,-12)
--
-- -- Page footer right side
-- DrawText doc, "page Þ", point(w, h+20)
--
-- -- Make the first page
NewPage doc
-- Put a white box over the header on page 1
setGray doc, 0
drawRect doc, rect(0,-22, w+1,0), TRUE
setGray doc, 100
-- declare the frame for the text
newFrame doc, Rect(0,0, w, h), FALSE
-- append the document title
setTextJust doc, "left"
append doc, member "doctitle", member "version", RETURN
-- and a picture and the contents
append doc, member "illustration", RETURN, castlib "documentation" -- THIS CRASHES IF SETMARGINS ABOVE IS USED
cursor -1
printPreview doc
-- get rid of the document object
set doc = 0
end if
end printDocumentation