General information
Category:
Reports & Report designer
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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only