Grapher 14 added the ability to create multi-page project files, however all added pages are letter size with portrait orientation. If you wish to create a project with many pages and want those pages to all be a specific predefined size, you can use the script below to create the project, and then you can add content to each page. If you would like the pages to be a custom page size, see How can I add pages to my Grapher project with a custom page size?.
To run the script:
- Copy the script below.
- Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
- Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
- Press Ctrl+V to paste it into the Script Manager.
- Click the green arrow Start/Resume icon in the Script Manager.
Sub Main 'Create Grapher as an Object Dim Grapher As Object Set Grapher = CreateObject("Grapher.Application") Grapher.Visible = True '============================= 'User defined variables '============================= numpages = 3 outpath = "C:\temp\" outfilename = "Plot1.gpj" psize = grfLegal porient = grfLandscape '============================= 'Set up page 1 Set Plot1 = Grapher.Documents.Add(grfPlotDoc) Plot1.PageSetup.pageSize = psize Plot1.PageSetup.Orientation = porient 'Add any additional pages and set them up For i=2 To numpages Plot1.AddPage("Page"+Str(i)) Plot1.PageSetup.pageSize = psize Plot1.PageSetup.Orientation = porient Next 'Activate page 1 Plot1.SetActivePage(1) 'Save the file Plot1.SaveAs(outpath+outfilename,grfProject) End Sub
Please contact us if you would like us to add your vote to our suggestion file for the ability to set a default page size to use for added pages.
Updated August 2019