FoxyPreviewer238a
in command window
SET Procedure To foxypreviewer.APP
*

DEFINE CLASS form1 AS form


DataSession = 2
Top = 24
Left = 15
ShowWindow = 1
DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT command1 AS commandbutton WITH ;
Top = 139, ;
Left = 172, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"


PROCEDURE Load
create Cursor test_cur (col1 c(10), col2 c(10), col3 c(10))
*
for i = 1 to 20
insert into test_cur values (sys(2015), sys(2015), sys(2015))
endfor
ENDPROC


PROCEDURE command1.Click
select test_cur
*
*report form mob_fill to printer prompt preview noconsole
LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
loReport.AddReport("testrepo", "to printer prompt preview", "test_cur")
loReport.RunReport()
ENDPROC


ENDDEFINE