PUBLIC oform1 > >oform1 = NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > DoCreate = .T. > Caption = "Form1" > WindowType = 0 > Name = "Form1" > > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 144, ; > Left = 144, ; > Height = 27, ; > Width = 84, ; > Caption = "Report", ; > Name = "cmdPrint" > > > PROCEDURE cmdPrint.Click > oListener = CREATEOBJECT("ReportListener") > oListener.ListenerType = 1 && Preview, or 0 for Print > > CREATE CURSOR test (ii int, cc char) > INSERT INTO test VALUES (1, "One") > INSERT INTO test VALUES (2, "Two") > INSERT INTO test VALUES (3, "Three") > CREATE REPORT testxx FROM test > > > REPORT FORM testxx OBJECT oListener > ENDPROC >ENDDEFINE >