主题：多张图片如何打印在一个单元格中？

我测试代码没问题，参考

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()