How can I write a script to print all data tables (or graphs) in a project?

This script will work with either Prism 3 or 4:

SetPath [path name]
Open [file name]
GoTo D 1        [Replace with GoTo G 1  if you want to print graphs]
Print
ForEach [number of data table in a section minus 1]
  Goto +
  Print
Next
Close