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