#DEFINE USE_OBJECT_TYPE .f. SET REPORTBEHAVIOR 90 LOCAL loTLF loTLF = CREATEOBJECT('_TopLevelForm') loTLF.Show() READ EVENTS loTLF = NULL RETURN DEFINE CLASS _TopLevelForm AS FORM ShowWindow=2 Top = 0 Left = 0 Height = 500 Width = 600 PROTECTED PROCEDURE Init SET TALK off SET EXCLUSIVE off SET MULTILOCKS on SET DELETED on OPEN DATABASE HOME() + [Samples\Northwind\Northwind] SET DATABASE TO Northwind BINDEVENT(THIS, 'Show', THIS, 'RunReport', 1) ENDPROC PROTECTED PROCEDURE Unload CLOSE ALL CLEAR EVENTS ENDPROC PROTECTED PROCEDURE Destroy IF FILE('nwcust.frx') ERASE nwcust.frx ENDIF IF FILE('nwcust.frt') ERASE nwcust.frt ENDIF CLOSE ALL ENDPROC PROTECTED PROCEDURE Error(nError, cMethod, nLine) ENDPROC PROCEDURE RunReport LOCAL lcReport lcReport = [NWCust] USE Northwind!Customers CREATE REPORT &lcReport FROM Customers IF USE_OBJECT_TYPE REPORT FORM &lcReport OBJECT TYPE 1 TO PRINTER PROMPT ELSE REPORT FORM &lcReport TO PRINTER PROMPT PREVIEW ENDIF WAIT WINDOW 'The Report preview window is modal regardless of the value of the USE_OBJECT_TYPE constant. Hit Enter to Continue...' ENDPROC ENDDEFINE