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文件
加好友 
发短信
Post By：2020/4/12 21:27:00 [显示全部帖子]
