Here is an example of one way to do what you want
Names Default To Here( 1 );
Bivariate( Y( :height ), X( :weight ), Fit Line( {Line Color( {212, 73, 88} )} ) );
theReport = Current Report();
theReport[Outline Box( 1 )] << prepend(
bb = Button Box( "Publish to File",
bb << visibility( "collapse" );
theReport << save interactive HTML( "$TEMP/jmp_example.html" );
bb << visibility( "visible" );
)
);
Jim