This article contains a sample script for printing multiple graphs from a template. Files are picked using an input file.
To run this script:
- Copy the script below, or download the attached BAS file: print with file.BAS
- In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 13.
- Double click on Scripter.exe to launch Scripter.
- Press Ctrl+A to select all of the existing lines then press Delete.
- If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
- Click Script | Run to run the script.
OR:
- 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 Start/Resume icon ( ) in the Script Manager.
*********
'PRINT WITH FILE.BAS 'This script prints multiple graphs using a template graph and a text file 'consisting of data file names. Please see "worksheet inputs.txt" as an 'example text file. The text file must end with EOF. Change the paths below 'to match your data and template graph paths. Sub Main 'Declare Grapher as an object Dim Grapher As Object 'Starts Grapher Set Grapher = CreateObject("Grapher.Application") 'Makes Grapher visible Grapher.Visible(1) 'Open the text file containing the data paths and file names Open Grapher.Path+"\Samples\worksheetinputs.txt" For Input As #1 'Input a line from the text file above Line Input #1,wks$ While wks$ <> "EOF" 'Open the template file with one line (data file) from the text file Set doc = Grapher.Documents.Add(0,Grapher.Path+"\Templates\line scatter plot.grt",wks$) 'Print the graph doc.Print() 'Close the plot window doc.Close(grfSaveChangesNo) 'Input the next line in the text file Line Input #1,wks$ Wend Close #1 Grapher.Quit() End Sub
Updated September 24, 2018
Comments
Please sign in to leave a comment.