-- PRINT ALL OBJECTS
-- This script was written by Denny Dedmore in May 2003
-- to print all objects in a book even if they are hidden normally
-- and to rehide those "shown" objects after the print finishes.
-- To use, put this code at the Book Script level of your book
-- and do a SEND PRINTALL from OpenScript

to handle printAll
	SYSTEM objectsShown
	
	objectsShown = null
	sysLockScreen = true
	sysCursor = 4
	
	step k from 1 to pageCount of this book
		curPage = page k
		pgObjs = getObjectList(curPage,"",false)
		get showHiddenObjects(pgObjs)		
	end
	
	bgs = backgrounds of this book
	step k from 1 to backgroundCount of this book
		curBg = item k of bgs
		bgObjs = getObjectList(curBg,"",false)
		get showHiddenObjects(bgObjs)
	end
	
--  PUT YOUR PRINT CODE HERE SUCH AS:
	start spooler
		print all	
	end

	-- After printing, re-hide needed objects
	while objectsShown <> null
		pop objectsShown into curObj
		hide curObj
	end	
	
	sysCursor = 1
end

to get showHiddenObjects objs
	SYSTEM objectsShown
	
	while objs <> null
		pop objs into curObj
		if object of curObj <> "hotword" and visible of curObj = false
			push curObj onto objectsShown
			show curObj
		end
	end
	return null
end