- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单元格里多个图片如何转成PDF打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170398)
-- 发布时间：2021/7/24 16:24:00
-- 单元格里多个图片如何转成PDF打印
请问老师，单元格里多个图片如何转成PDF打印，该怎么设置
我是按照Excel报表做的，但是不行，
With Tables("图片明细")
.Select(0,0, .Rows.Count -1, .Cols.Count -1)
End With
Dim Book As New XLS.Book(ProjectPath & "Attachments\\pz.xlsx")
Dim fl As String = ProjectPath & "Reports\\tupian.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
该怎么设置
-- 发布时间：2021/7/24 16:26:00
--
这个是报表附件
-- 发布时间：2021/7/24 16:31:00
--
模板文件发上来看看
-- 发布时间：2021/7/24 16:34:00
--
这个是模板
-- 发布时间：2021/7/24 16:39:00
--
这个模板http://www.foxtable.com/bbs/fileshow.asp?boardid=2&id=159712
-- 发布时间：2021/7/24 16:44:00
--
一个单元格多个图片的，不好使用execl模板处理，建议使用专业报表：http://www.foxtable.com/webhelp/topics/1181.htm
-- 发布时间：2021/7/24 17:22:00
--
蓝老师，没太明白怎么设置单元格里的那么多图片，还有不打印了只是把一个单元格里的 全部图片 生成一个pdf？
-- 发布时间：2021/7/24 17:31:00
--
比如：
Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As prt.RenderImage \'定义一个图片对象
For Each r As Row In Tables("图片明细").Rows
For Each s As String In r.DataRow.Lines("图片")
rm = New prt.RenderImage
rm.Image = GetImage(s) \'设置图片
rm.Width = "Parent.Width" \'宽度等于页面宽度
rm.Height = "Auto" \'高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False \'禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
doc.Body.Children.Add(rm) \'将图片对象加入报表
Next
Next
doc.SavePDF(fl)
-- 发布时间：2021/7/24 18:22:00
--
谢谢蓝老师，非常感谢
-- 发布时间：2021/7/25 7:36:00
--
蓝老师：
只对子表 “图片明细” 里一行中的 [图片] 列一个 单元格 里全部图片转成PDF，不要子表全部行的；
或者说图片管理器中显示的全部图片生成PDF，因为它对应的就是一个单元格。