主题：第一次做报表，有些搞不懂，请帮忙改改

用一个picturebox显示不行？

Dim p As WinForm.PictureBox = e.Form.Controls("picturebox")
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
    p.Image = GetImage(ProjectPath & "temp.jpg") '请改为实际的图标名称和路径
Else
    msgbox("下载失败")
End If

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