Article ID: 186920
Article Last Modified on 2/12/2007
1 = U. S. (inches)
2 = Metric
3 = Pixels
*-- Code begins here
lsRptFile = GETFILE("FRX", "Report file to open:", "Open", 0)
IF LEN(ALLTRIM(lsRptFile)) = 0
RETURN
ENDIF
USE(lsRptFile)
LOCATE FOR objtype = 1 && Find the record for the report form object.
IF FOUND()
REPLACE ruler WITH 2 && Use the metric ruler.
ELSE
MESSAGEBOX("Not a valid report file.", 0, "Error")
USE
RETURN
ENDIF
USE
*-- View the report to see the changes.
MODIFY REPORT (lsRptFile)
*-- Code ends here
NOTE: In FoxPro 2.x for MS-DOS and Unix, the system menu disappears when
you modify the report in the program. Once you close the Report Designer
and the program exits, the system menu returns.
Additional query words: kbDSupport kdDSE kbnokeyword
Keywords: kbhowto KB186920