Export snapshots

[paolo mazza]

I want to get from Rev a jpg file of the card on top of my application.
After some attempts, I came up with this script (which it works):

on MouseUP  
  put the rect of this stack into FINESTRA
  import snapshot  from rect FINESTRA
  put the number of images of this stack into NUMIMM
  export image NUMIMM  to   URL "binfile:immagine1.jpg" as JPEG
  delete image NUMIMM
  choose browse tool
end MouseUP

Is there any easier way to accomplish the same task?