#DEFINE cnPREVIEW_ZOOM_SCALE 6 && 1.-100%,2.-75%,3.-50%,4.-25%,5.-10%,6.-Zoom,7.-200%*
LOCAL loFile
lcFRX2AnyLibrary = 'FRX2Any'
SET CLASSLIB TO &lcFRX2AnyLibrary IN FRX2Any.APP ALIAS FRX2Any
loFile = CREATEOBJ('FRX2Any.PreviewFile')
IF TYPE('loFile') = 'O'
loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx')
loFile.lDisplayStatus = .T.
loFile.nZoomScaleType = 6
loFile.SAVE('cliprt.frx')
loFile.RELEASE()
ENDIF