- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表打印图片大小的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104066)
-- 发布时间：2017/7/22 11:10:00
-- 专业报表打印图片大小的问题
此主题相关图片如下：专业报表图片.jpg
Dim rm As New prt.RenderImage() \'定义一个图片对象
rm.Image = GetImage(fd & drs(i)(ColNames(c)).replace("/","\\")) \'\'请改为实际的图标名称和路径
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center \'图片垂直居中
rm.Style.ImageAlign.StretchHorz = False \'禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False \'禁止垂直方向扩展图片
rt.cells(rt.Rows.Count-1,c).RenderObject = rm \'将单元格内容设置为图片对象rm
现在有个问题就是如果打印时用户设置的行高比较小,单元格比较小时,图片太大就显示不出来或者不完整,能否根据单元格的大小自动设置图版的大小?
谢谢!
-- 发布时间：2017/7/22 11:16:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=84351
-- 发布时间：2017/7/22 11:39:00
--
rm.Style.ImageAlign.StretchVert = False \'禁止垂直方向扩展图片这一行不要，动态指定高度即可实现高度指定，宽度按比例！
-- 发布时间：2017/7/22 12:18:00
--
谢谢两位老师,可以了.