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.