Quark Collect for Output Batch

Hi,

I have a script to batch collect for output in quarkxpress, but the problem is after activating the collect for output option I can’t control to chose folder etc.



set source_folder to choose folder with prompt "Select folder containing QUARKXPRESS Documents"
tell application "Finder" to set item_list to every item of source_folder

repeat with this_item in item_list
	set doc_kind to kind of (info for this_item as alias)
	if doc_kind contains "QuarkXPress" then
		tell application "QuarkXPress"
			activate
			open this_item use doc prefs no remap fonts no do auto picture import no without reflow
		end tell
	end if
	CollectForOutput()
	delay 12
end repeat

on CollectForOutput()
	set This_Menu to 3
	set First_Level to 14
	tell application "QuarkXPress"
		activate
		tell application "System Events"
			activate
			tell process "QuarkXPress"
				set ascii0 to ASCII character 0
				set frontmost to true
				tell menu bar 1
					if class of This_Menu is string then
						set This_Menu to (This_Menu & ascii0)
					end if
					delay 1
					tell menu bar item This_Menu
						tell menu 1
							click menu item First_Level
							
						end tell
						
					end tell
				end tell
			end tell
		end tell
	end tell
	delay 50
	tell application "QuarkXPress"
		activate
		tell document 1
			close saving no
		end tell
	end tell
end CollectForOutput



Please HELP