主题：[求助]专业报表问题?

如果要打印当前选中的行，如这样写代码

Dim r As Row = Tables("退休认证资料").Current

rm.Content.AddImage(getimage(projectPath & "attachments/" r("认证资料")))   '设置图片

如果要打印标签，请用这种方式处理，如

http://www.foxtable.com/webhelp/scr/1182.htm

http://www.foxtable.com/webhelp/scr/1186.htm

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim sd As String = e.Form.Controls("ComboBox2").Text

Dim Doc As New  PrintDoc
Dim rm As new  prt.RenderImage
Dim rt As prt.RenderText
Dim ry As prt.RenderText
For Each r As DataRow In DataTables("退休认证资料").Select("认证年度 = '" & nd & "' Or 认证时段 = '" & sd & "'")
    rm.Width = "100%Parent"
    rm.Height = "100%Parent"
    rm.image = getimage(ProjectPath & "attachments/" & r("认证照片"))
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)
    rm.Style.Spacing.Bottom = 8
    Doc.Body.Children.Add(rm)
next

rt = new prt.RenderText
rt.text = "涟源市杨市镇中心卫生院退休职工生存认证照片资料"
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.Fontsize = 16
Doc.PageHeader = rt

ry = new prt.RenderText
ry.text = "第[pageno]页,共[pagecount]页"
ry.Style.TextAlignHorz = prt.AlignHorzEnum.Center
ry.Style.Fontsize = 16
Doc.PageFooter = ry
Doc.Preview()

For Each r As DataRow In DataTables("退休认证资料").Select("认证年度 = '" & nd & "' Or 认证时段 = '" & sd & "'")

    rm = new  prt.RenderImage
    rm.Width = "100%Parent"
    rm.Height = "100%Parent"
    rm.image = getimage(ProjectPath & "attachments/" & r("认证照片"))
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)
    rm.Style.Spacing.Bottom = 8
    Doc.Body.Children.Add(rm)
Next

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim sd As String = e.Form.Controls("ComboBox2").Text
Dim Doc As New  PrintDoc
Dim rm As new  prt.RenderImage
Dim rt As prt.RenderText
Dim ry As prt.RenderText
For Each r As DataRow In DataTables("退休认证资料").Select("认证年度 = '" & nd & "' or 认证时段 = '" & sd & "'")
    rm = new  prt.RenderImage
    rm.Width = "100%Parent"
    rm.Height = "100%Parent"
    rm.image = getimage(ProjectPath & "attachments/" & r("认证资料"))
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)
    rm.Style.Spacing.Bottom = 8
    Doc.Body.Children.Add(rm)
    rt = new prt.RenderText
    rt.text = "涟源市杨市镇中心卫生院退休职工生存认证照片资料__" & r("姓名")
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.Fontsize = 16
    doc.body.Children.add(rt)
Next

ry = new prt.RenderText
ry.text = "第[pageno]页,共[pagecount]页"
ry.Style.TextAlignHorz = prt.AlignHorzEnum.Center
ry.Style.Fontsize = 16
Doc.PageFooter = ry
Doc.Preview()

    rm.Width = "100%Parent"
    rm.Height = "100%Parent"

改一下，可以改成，如

    rm.Width = "100%Parent"
    rm.Height = "80%Parent"

上传具体实例测试。

Dim nd As String = e.Form.Controls("ComboBox1").Text    '定义年度
Dim sd As String = e.Form.Controls("ComboBox2").Text    '定义时段
Dim Doc As New  PrintDoc          '定义一个报表对象
Dim rt As prt.RenderText          '定义一个文本对象
Dim rm As new  prt.RenderImage       '定义一个图片对象
For Each r As DataRow In DataTables("退休认证资料").Select("认证年度 = '" & nd & "' or 认证时段 = '" & sd & "'")              '条件定义图片
    rt = new prt.RenderText           '确认定义一个文本对象
    rt.text = "生存认证资料_" &"姓名:" & r("姓名") & "    认证年度:" & r("认证年度") & "    认证时段:" & r("认证时段")   '设置文本对象内容
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center                   '设置文本对象水平居中
    rt.Style.Fontsize = 16        '设置字体大小为16号
    Doc.Body.Children.Add(rt)
    rm = new prt.RenderImage              '确认定义一个图片对象
    rm.Width = "100%Parent"         '设置图片尺寸为容器(页面)尺寸
    rm.Height = "80%Parent"
    rm.image = getimage(ProjectPath & "attachments/" & r("认证资料"))   '设置图片
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center                '图片居中显示
    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)           '设置红色边框线
    rm.Style.Spacing.Bottom = 8         '设置图片垂直对齐位置为靠底8mm
    rm.BreakAfter = prt.BreakEnum.Page
    Doc.Body.Children.Add(rm)      '将图片对象加入报表
Next
Doc.Preview()        '预览报表内容

你测试过了吗？认认真真测试20楼代码。

不会做就上传实例。