| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 479 人关注过本帖
标题:vfp如何通过报表输出JPG图像文件 导出的图片丢失部分数据(右边和下边),哪 ...
只看楼主 加入收藏
山中石
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2021-8-24
结帖率:0
收藏
已结贴  问题点数:20 回复次数:12 
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.
搜索更多相关主题的帖子: JPG INT 丢失 REPORT FORM 
2021-08-24 11:07
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:326
帖 子:8408
专家分:36861
注 册:2014-5-20
收藏
得分:20 
2021-08-24 12:19
山中石
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2021-8-24
收藏
得分:0 
回复 2楼 吹水佬
谢谢您,我也按他的方式 ,但图片就是出部分的
图片附件: 游客没有浏览图片的权限,请 登录注册
2021-08-24 17:02
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:326
帖 子:8408
专家分:36861
注 册:2014-5-20
收藏
得分:0 
是不是报表页面没设置好,超出可打印页面限制。
2021-08-24 17:10
山中石
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2021-8-24
收藏
得分:0 
回复 4楼 吹水佬
不是  我用A3 打印也只能显示部分
2021-08-26 15:03
山中石
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2021-8-24
收藏
得分:0 
回复 4楼 吹水佬
模拟显示是可以全部的 ,直接打印也没问题
就是转换导出图形文件的时候就出问题
2021-08-26 15:05
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:326
帖 子:8408
专家分:36861
注 册:2014-5-20
收藏
得分:0 
给点数据和报表文件测试
2021-08-27 20:26
山中石
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2021-8-24
收藏
得分:0 
回复 7楼 吹水佬
我用附件的数据进行测试,如果可能你测试一下,谢谢您!!
test.zip (9.08 KB)
2021-08-30 20:59
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:326
帖 子:8408
专家分:36861
注 册:2014-5-20
收藏
得分:0 
回复 8楼 山中石
标头和注脚拉开小小看
图片是是完整的
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

2021-08-30 21:52
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:219
专家分:386
注 册:2015-12-30
收藏
得分:0 
图形控件的属性调整试下:
如果源和帧大小不同:(下面三个选项,建议第三个)
剪切内容
度量内容,保留形状
度量内容,填充帧


[此贴子已经被作者于2021-9-3 09:23编辑过]

2021-09-03 09:21
快速回复:vfp如何通过报表输出JPG图像文件 导出的图片丢失部分数据(右边和下边 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.139508 second(s), 9 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved