Names Default to Here(1); dt = open ("c:/temp/Dummy Data.jmp"); jjrn = New Window("My Journal", << Journal); dtsum = dt << Summary( Group ( :Channel, :Test State ), Invisible ); For(i=1, i<=nrow(dtsum), i++, chnl = dtsum:Channel[i]; tst = dtsum:Test State[i]; gb = dt << Graph Builder( where(dt:Channel == chnl & dt:Test State == tst ), invisible, Size( 1225, 952 ), Show Control Panel( 0 ), Variables( X( :X ), Y( :Y ), Group X( :Wafer ID ), Overlay( :RowCol ) ), Elements( Smoother( X, Y, Legend( 19 ) ) ) ); (gb << top Report)[TextBox(1)] << delete; //delete the where statement report(gb)[OutlineBox(1)] << set title( EvalInsert("Results for Channel=^chnl^ and Test State=^tst^")); If( i == 1, gb << Save Presentation( "$TEMP/jmp_example2.pptx" ), gb << Save Presentation( "$TEMP/jmp_example2.pptx", Append ) ); gb<< Journal Window(); wait(0); gb << close window(); ); Open( "$TEMP/jmp_example2.pptx" ); jjrn << Save Presentation( "$TEMP/jmp_example3.pptx"); Open( "$TEMP/jmp_example3.pptx" ); close(dtsum, NoSave); jjrn << close Window();