多张图片如何打印在一个单元格中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多张图片如何打印在一个单元格中？

共有2583人关注过本帖树形打印复制链接主题：多张图片如何打印在一个单元格中？

happyft

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1925 积分：17344 威望：0 精华：0 注册：2014/7/29 19:09:00

多张图片如何打印在一个单元格中？ 发帖心情

Post By：2019/4/15 19:06:00 [只看该作者]

图片列是保存在远程的ftp服务器上的，有时一个产品会有多张图片，如果有多张时，图片列的值就如下所示：

/Photo/产品/G1050123.jpg

/Photo/产品/G1050124.jpg

/Photo/产品/G1050125.jpg

'----打印单张图片---------------------------------

Dim rm As New prt.RenderImage() '定义一个图片对象

rm.Image = GetImage("ABC.jpg") '图片必须保存到attachment下面

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Left '居中显示

rt.Cells(rt.Rows.Count-6,1).RenderObject = rm '将单元格内容设置为图片对象rm

上面是在专业报表打印单张图片的代码，没有问题，

但如果要上面的远程ftp上的这三张图片打印在一个单元格中，自动缩放，应该如何写代码？

谢谢！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/4/15 20:23:00 [只看该作者]

把图片放到RenderArea中，然后再把RenderArea放入单元格：http://www.foxtable.com/webhelp/scr/1185.htm

HappyFt

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1925 积分：17344 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2019/4/16 16:33:00 [只看该作者]

'----在合并的最下面一个单元格才显示图片---------------------------------

If CurRow("品质图片") > "" Then

Dim ra2 As New prt.RenderArea '定义一个容器

ra2.Stacking = prt.StackingRulesEnum.InlineLeftToRight '从左到右排列图片

Dim strs As String = CurRow("品质图片")

strs = strs.Replace("/","\")

strs = strs.Replace(vblf,"") '清除换行符

For Each str As String In strs.Split(vbcr) '以回车符为界转换为数组

msgbox(ProjectPath & "RemoteFiles" & str)

Dim rm As New prt.RenderImage() '定义一个图片对象

rm.Image = GetImage(ProjectPath & "RemoteFiles" & str)

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Left '显示方式

ra2.Children.Add(rm) '将文本对象加入到容器ra中

rt.Cells(rt.Rows.Count-6,1).RenderObject = ra2 '将单元格内容设置为图片对象rm

End If

'----显示图片---------------------------------

上面的代码执行时如果有多张图片,都只能显示最面上那一张,其他的都被第一张盖住了,

如何才能让单元格中的多个图片从上到下或才从左到右自动缩放排列在一起并列显示出来?

谢谢!

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/16 17:09:00 [只看该作者]

我测试代码没问题，参考

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim ra As prt.RenderArea
rt.Style.GridLines.All = New prt.LineDef
rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米
rt.Cols.Count = 3 '总列数为3
For i As Integer = 0 To 3
    ra = rt.Cells(i,0).Area '引用单元格的容器
    ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight '从左到右排列图片

    For j As Integer = 1 To 5
        Dim rm As New prt.RenderImage() '定义一个图片对象
        rm.Image = GetImage("d:\test.ico")
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Left '显示方式
        ra.Children.Add(rm) '将文本对象加入到容器ra中
    Next

Next
doc.Body.Children.Add(rt)
Doc.Preview()