print records using vfp report | vfp report writer | how to create report in visual foxpro

**OM SAI RAM

SET CLOCK on

SET CLOCK TO 07,80

CLOSE ALL 

CLEAR 

@ 05,01 To 22,100 doub 

@ 07,05 say "DATE : "+DMY(DATE())

@ 07,35 say "FRIEND SYSTEM" FONT "arial",14

@ 07,70 say "TIME : "

@ 09,02 TO 09,99

MButtonChoice = 0

USE friends

@ 18,15 Get MButtonChoice Function "*HT \<Print;\<Screen;\<Cancel" size 2,15,2

READ  cycle 

IF LASTKEY() = 27

RETURN .T.

ENDIF 

IF LASTKEY() <> 27

*For Printing

IF MButtonChoice = 1

REPORT FORM FriendList TO PRINTER PROMPT 

RETURN .t.  

ENDIF 

*For Preview

IF MButtonChoice = 2

REPORT FORM FriendList PREVIEW 

RETURN .t.  

ENDIF 

*For Cancel /exit

IF MButtonChoice = 3

WAIT WINDOW "You selected Cancel button."

Endif 

ENDIF