| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]专业报表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65668) |
| -- 作者：pcxjxjhkw -- 发布时间：2015/3/20 11:20:00 -- [求助]专业报表问题 1.将图片插入到专业报表中，如何设置图片的大小？ 想实现：如果图片宽度超过页面宽度，则以页面宽度缩放；如果未超过，则以图片实际宽度。 2.如何批量插入图片。
|
| -- 作者：有点甜 -- 发布时间：2015/3/20 11:22:00 -- http://www.foxtable.com/help/topics/1182.htm
|
| -- 作者：Bin -- 发布时间：2015/3/20 11:22:00 -- http://www.foxtable.com/help/topics/1182.htm |
| -- 作者：pcxjxjhkw -- 发布时间：2015/3/20 11:26:00 -- 关键是如何判断的问题 If rm.Width > Doc.PageSetting.Width Then 报错
|
| -- 作者：有点甜 -- 发布时间：2015/3/20 11:28:00 -- 直接设置图片的宽度就行啊 rm.Width = "Parent.Width" \'宽度等于页面宽度
|
| -- 作者：pcxjxjhkw -- 发布时间：2015/3/20 11:34:00 -- 甜老师，设置图片的宽度我已明白，但我问的是：插入的图片时先判断，图片的宽度与页面的宽度，哪个大，如果图片宽些，是按页面宽度显示；如果图片宽度小于页面，则以图片实际宽度显示。 |
| -- 作者：pcxjxjhkw -- 发布时间：2015/3/20 11:35:00 -- 如果统一设置为：rm.Width = "Parent.Width" \'宽度等于页面宽度 那么，当一图片的宽度小于页面时，也会放大的。但我想实现，这时以原图显示。 [此贴子已经被作者于2015/3/20 11:35:28编辑过]
|
| -- 作者：有点甜 -- 发布时间：2015/3/20 11:37:00 -- Dim doc As New PrintDoc \'定义一个报表对象 Dim rm As New prt.RenderImage \'定义一个图片对象 rm.Image = GetImage("d:\\test.jpg") \'设置图片 Dim pwidth = Doc.PageSetting.Width.value - Doc.PageSetting.LeftMargin.Value - Doc.PageSetting.RightMargin.Value If rm.Image.Width / 96 * 25.4 > pwidth Then rm.Width = "Parent.Width" End If doc.Body.Children.Add(rm) \'将图片对象加入报表 Doc.Preview() \'预览 |
| -- 作者：pcxjxjhkw -- 发布时间：2015/3/20 11:39:00 -- If rm.Image.Width / 96 * 25.4 > pwidth Then 甜老师，红色字代表什么意义？
[此贴子已经被作者于2015/3/20 11:38:50编辑过]
|
| -- 作者：有点甜 -- 发布时间：2015/3/20 12:07:00 -- http://www.baidu.com/baidu?wd=%BA%C1%C3%D7+%CF%F1%CB%D8&tn=monline_4_dg
|