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 rm As New prt.RenderImage() '定义一个图片对象
rm.Image = GetImage(Tables("fa piao认证信息_Table1").Current("fa piao图片")) '请改为实际的图标名称和路径
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)
doc.Body.Children.Add(ra) '将表格对象加入到报表中
doc.SavePDF(fl2) '保存为PDF文件
doc.Build() '逐行生成报表
doc.Quit() '退出
wbr.AddRess = fl2
本窗口是图片显示窗口,上面代码是在AfterLoad里,窗口控件只有WebBrowser1
但是提示错误
我的想法是在fa piao认证信息的Table1表中双击后在,表中的图片文件生成报表显示在WebBrowser1,之前是用word,因为安装附件麻烦所以使用代码,请帮我改一下以上代码