How can I print my line/scatter plot to Adobe Distiller using Grapher automation?

This article contains a sample script for creating a line/scatter plot and printing to Adobe Distiller.

To run this script:

1. Click here to download the BAS file: Line Symbol Print PDF.BAS.
2. Click Automation | Scripts | Run, select the BAS file from your downloads directory, and click Open.

OR:

1. Copy the script below.
2. Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
3. Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
4. Press Ctrl+V to paste it into the Script Manager.
5. Click the Start/Resume icon () in the Script Manager. 

*********

Sub Main

	 Dim GrapherApp As Object
	 Set GrapherApp = CreateObject("Grapher.Application")
	 GrapherApp.Visible = True

 	Set Plot = GrapherApp.Documents.Add(grfPlotDoc)
 	Set LineGraph = Plot.Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\tutorial.dat")
 	Dim LinePlot As Object
 	Set LinePlot = LineGraph.Plots.Item(1)

'Printout 1
	Dim PlotLabels As Object
	LinePlot.Labels.ShowLabels = True
	Plot.SaveAs "Plot1.grf"
	Plot.PageSetup.printer="Acrobat Distiller"
	Plot.PrintOut(grfPrintFitToPage)

'Printout 2
 	LinePlot.Labels.ShowLabels = False
	Plot.SaveAs "Plot2.grf"
	Plot.PageSetup.printer="Acrobat Distiller"
	Plot.PrintOut(grfPrintFitToPage)

End Sub

Updated October 18, 2018