>LOCAL loXH >* >*-- Create an extension handler object. >loXH = NEWOBJECT("Custom") >* >oPC = NULL >DO ReportPreview.App with m.oPC >* >*-- Assign the extension handler to the preview container. >m.oPC.SetExtensionHandler(loXH) >* >*-- Create a standard report listener: >loRL = CREATEOBJECT("ReportListener") >loRL.ListenerType = 1 >loRL.PreviewContainer = m.oPC >* >CREATE CURSOR cuTest (Dummy C(10)) >APPEND BLANK >* >REPORT FORM TestReport TO PRINTER PROMPT OBJECT loRL NOWAIT NOCONSOLE >* >RETURN .T. >