LOCAL oListener As ReportListener, nPageIndex oListener = CREATEOBJECT("ReportListener") oListener.ListenerType=3 DO CreateData SET SAFETY OFF CREATE REPORT SampleReport FROM csDates SET SAFETY ON REPORT FORM SampleReport PREVIEW OBJECT oListener FOR nPageIndex=1 TO oListener.PageTotal oListener.OutputPage(nPageIndex,; "tmp"+TRANSFORM(nPageIndex)+".jpg",; 102, 0,0,768,1024) NEXT PROCEDURE CreateData SET CENTURY ON CLOSE DATABASES CLOSE TABLES ALL CREATE CURSOR csDates (; dt D, dw C(20), dy C(30)) LOCAL nIndex, dIndex FOR nIndex=1 TO 365 dIndex=DATE()-nIndex INSERT INTO csDates VALUES (; dIndex, CDOW(dIndex), MDY(dIndex)) NEXT