'This script prints all open Grapher plot and worksheet windows Sub Main 'Create Grapher as an object Dim Grapher As Object 'Start Grapher Set Grapher = CreateObject("Grapher.Application") 'Make Grapher visible Grapher.Visible = True 'Print all graphs that are currently open i=1 While i < Grapher.Documents.Count+1 'Step through each of the open windows and print Grapher.Documents.Item(i).PrintOut 'uncomment the next line if you want the script to close the window 'doc.Close() 'Open the next file i = i+1 Wend End Sub