VFP9的报表能实现无级缩放打印

VFP9的报表能实现无级缩放打印

---------------------------------------------------------------

PUBLIC nWsfl,nHsfl
nWsfl=0.5 &&宽度缩放率，想要得到最佳效果，请调整此处。
nHsfl=0.5 &&高度缩放率，想要得到最佳效果，请调整此处。

LOCAL loReportListener, lcFRX

lcFRX = GETFILE("frx")
IF EMPTY(lcFRX)
RETURN
ENDIF

loReportListener = CREATEOBJECT("Test")

REPORT FORM (lcFRX) OBJECT loReportListener PREVIEW
RELEASE nWsfl,nHsfl

DEFINE CLASS Test AS REPORTLISTENER
LISTENERTYPE = 0
PROCEDURE OUTPUTPAGE(nPageNo, eDevice, nDeviceType,nleft, nTop, nWidth, nHeight)
DODEFAULT(nPageNo,eDevice,nDeviceType,nleft,nTop,nWidthnWsfl,nHeightnHsfl)
NODEFAULT
ENDPROC
ENDDEFINE