以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]批量jpg合并转换pdf文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148638)
--  作者：kai
--  发布时间：2020/4/11 20:12:00
--  [求助]批量jpg合并转换pdf文件
我在E:\\jpg路径下有大量文件夹，请问
1.遍历文件夹及其子文件夹
2.将其中子文件夹的多个jpg文件合并转换为pdf文件
3.并且可以将pdf文件命名为与子文件夹名字一致的代码的写法？
--  作者：有点蓝
--  发布时间：2020/4/12 21:27:00
--  
1、参考：http://www.foxtable.com/webhelp/topics/0331.htm

2、把图片放入专业报表，然后保存为pdf：

3、根据第一步获取的目录名称保存即可，如

dim ml as string = "某某目录名称"
Dim fl As String = "c:\\data\\" & ml & ".pdf"
Dim doc  As New PrintDoc
Dim ra As New prt.RenderArea
doc.PageSetting.Width = 150
doc.PageSetting.Height = 80
ra.Width = "Parent.Width"
ra.Height = "Parent.Height"
ra.Style.Borders.All = New prt.Linedef(5, Color.Red)
doc.Body.Children.Add(ra)
doc.SavePDF(fl) \'保存为PDF文件