Sub Main 'Initializes Grapher Dim Grapher As Object Set Grapher = CreateObject("Grapher.Application") Grapher.Visible = True '============================= 'User defined variables '============================= numpages = 3 outpath = "C:\temp\" outfilename = "Plot1.gpj" pwidth = 5 pheight = 6.1 '============================= 'Set up page 1 Set Plot1 = Grapher.Documents.Add(grfPlotDoc) Plot1.PageSetup.Width = pwidth Plot1.PageSetup.Height = pheight 'Add any additional pages and set them up For i=2 To numpages Plot1.AddPage("Page"+Str(i)) Plot1.PageSetup.Width = pwidth Plot1.PageSetup.Height = pheight Next 'Activate page 1 Plot1.SetActivePage(1) 'Save the file Plot1.SaveAs(outpath+outfilename,grfProject) End Sub