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\sample3.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)

'AppActivate "Grapher - [Plot1 *] "
'SendKeys "PlotTest.pdf" + "~"


End Sub