老师好。专业报表打印员工相片的代码不对,请老师帮助修正。谢谢。
Dim Doc As New PrintDoc
Dim rt As New prt.RenderTable()
Dim btwb As New prt.RenderText
Dim CurRow As Row = Tables("员工").Current
Dim fd As String = DataTables("员工").DataCols("照片").DefaultFolder
Dim xm As String = Tables("员工").Current("姓名")
Dim rm As New prt.RenderImage() '定义一个图片对象
If fd = "" Then fd = ProjectPath & "RemoteFiles\Attachments" & "\" & xm & ".jpg"
rm.Image = GetImage(fd) '要打印的图片的路径和文件名
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center
rm.Style.ImageAlign.StretchHorz = False
rm.Style.ImageAlign.StretchVert = False
......
rt.Cells(0,11).Image = GetImage(rm)
rt.Cells(0,11).RenderObject = rm '将单元格内容设置为图片对象rm
Doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表