Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim fl2 As String = ProjectPath & "Reports\fa piao图片.pdf" '指定目标PDF文件
Dim doc As New PrintDoc '定义一个报表
Dim ra As New prt.RenderArea
doc.PageSetting.Landscape = True
Dim file = Tables("fa piao认证信息_Table1").Current("fa piao图片")
Dim ftp As new FTPClient
ftp.Host = "xxx"
ftp.Account = "xxx"
ftp.Password = "xxx"
If ftp.Download(file, ProjectPath & "temp.jpg") Then
Dim rm As New prt.RenderImage() '定义一个图片对象
rm.Image = GetImage(ProjectPath & "temp.jpg") '请改为实际的图标名称和路径
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
ra.Children.Add(rm)
Else
msgbox("下载失败")
End If
doc.Body.Children.Add(ra) '将表格对象加入到报表中
doc.SavePDF(fl2) '保存为PDF文件
wbr.AddRess = fl2