How to Save a Control Chart as a PNG etc

[#1]

I have the following script that produces a nice control chart, I'd like to add on a function to save it(or the window) as a png to a folder I can share with others?

Data Table("sampledata")
<< New Script(
"Control Chart - 1",
Control Chart Builder(
Size( 960, 767 ),
Show Alarm Report( 1 ),
Show Limit Labels( 1 ),
Show Sigma Report( 1 ),
Include Missing Categories( 0 ),
Variables(
Subgroup( :time ),
Subgroup( :unit, Position( 1 ) ),
Y( :parameter 1 )
),
Chart(
Position( 1 ),
Points( Statistic( "Individual" ) ),
Limits( Sigma( "Moving Range" ) ),
Warnings(
Test 1( 1 ),
Test 2( 1 ),
Test 3( 1 ),
Test 4( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test 7( 1 ),
Test 8( 1 ),
Rule 1 2S( 1 ),
Rule 1 3S( 1 ),
Rule 2 2S( 1 ),
Rule R 4S( 1 ),
Rule 4 1S( 1 ),
Rule 10 X( 1 ),
Test Beyond Limits( 1 )
),
Process Capability Analysis( Histogram( 1, Show Within Sigma Density( 0 ) ) )
),
Chart(
Position( 2 ),
Points( Statistic( "Moving Range" ) ),
Limits( Sigma( "Moving Range" ) ),
Warnings( Test Beyond Limits( 1 ) )
),
Chart(
Position( 3 ),
Points( Statistic( "Moving Range" ) ),
Limits( Sigma( "Moving Range" ) ),
Warnings( Test Beyond Limits( 1 ) )
),
Local Data Filter( Add Filter( columns( :filter 1 ) ) ),
Show Control Panel( 0 ),
SendToReport(
Dispatch(
{},
"parameter 2",
ScaleBox,
{Format( "Fixed Dec", 12, 2 ), Min( 0 ), Max( 1), Inc( 0.1 ),
Minor Ticks( 0 )}))));

[#2]

This example for the Scripting Index should illustrate how to do it:

Names Default To Here( 1 );
//This message applies to all display box objects
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = dt << Bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
rbiv << Save Picture( "$TEMP/jmp_example.png", "png" );