One option to do something a bit like that
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << Delete Rows(11::40);
nw = new window("",
dt << Get As Report
);
pic = nw << Get Picture;
pic << Save Image("$TEMP/DELETEME.png", "png");
nw << Close Window;
Close(dt, no save);
Open("$TEMP/");
-Jarmo