LOCAL oListener As ReportListener, nPageIndex
oListener = CREATEOBJECT("ReportListener")
oListener.ListenerType=3 && renders all pages at once

* make sure the report can load and run
REPORT FORM MyReport PREVIEW OBJECT oListener

FOR nPageIndex=1 TO oListener.PageTotal
        cOutputFile = "tmp"+TRANS(nPageIndex)+".jpg"
        oListener.OutputPage(nPageIndex,;
                cOutputFile, 102, 0,0,768,1024) && 102=jpeg
NEXT