vfp如何通过报表输出JPG图像文件 导出的图片丢失部分数据（右边和下边）,哪位大侠可以帮助一下
DYNAMICLINEHEIGHT = .T.lcReport="c:\tmp\TEST.frx" &&SYS(5)+CURDIR()+"xxx.frx"
XLSNAME ="c:\tmp\x12311.JPG"
oListener = CREATEOBJECT('ReportListener')
olistener.ListenerType = 3
oListener.OutputType = 1
**oListener.PageWidth=1024
**oListener = CREATEOBJECT('ReportListener')
**olistener.ListenerType = 3
olistener.DynamicLineHeight =.T. && .F.
#DEFINE A4_Height 29.7
#DEFINE A4_Width 21
*olistener.Height=29.7
*&&Icase(Empty(nHeight), A4_Height, nHeight)
*olistener.Width=21 &&Icase(Empty(nWidth), A4_Width, nWidth)
*oListener.height=800
*REPORT FORM (lcReport)
*Do Form VPFORM Name MyReportForm &&调用表单
* Report FORM (lcReport) Preview Windows rpform &&调用form1的name属性
*RETURN
REPORT FORM (lcReport) OBJECT oListener &&NOWAIT
WITH olistener
?.OutputPageCount
&& .PageWidth=1000
* .sharedPageHeight=1000 && INT(.nPageHeight * VAL(.cboPer.Value) /100)
* .sharedPageWidth =1000 && INT(.nPageWidth * VAL(.cboPer.Value) /100)
*oListener.OutputPage(.nCurrentPage, .shpPreview, 2)
**? .GetPageHeight() / 10 &&获得页面的像素高度（每英寸96DPI）
** ? .GetPageWidth() / 10 &&获得页面的像素宽度 .shpPreview.Height = INT(.nPageHeight) &&设置形状的高度 .shpPreview.Width = INT(.nPageWidth) &&设置形状的宽度
ENDWITH
olistener.outputpage(1,xlsname,102)
olistener.quietmode = .T.
test.zip