主题：[求助]word报表问题?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:认证资料.rar

如何让图片能自动缩放大小?

 

以下是报表打印按钮代码:

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim sd As String = e.Form.Controls("ComboBox2").Text
Dim str As String = ""
str & = DataTables("退休认证资料").GetComboListString("公民身份号码", "认证年度 = '" & nd & "' Or 认证时段 = '" & sd & "'").replace("|", "','")
Tables("退休生存人员").filter = "公民身份号码 In ('" & str.trim(",") & "')"
'==========================以上是筛选已经认证的人员==============================
    Dim tm As String = ProjectPath & "Attachments\认证资料.doc"  '指定模板文件
    Dim fl As String = ProjectPath & "Reports\认证资料.doc"  '指定目标文件
    Dim wrt As New WordReport(Tables("退休认证资料"),tm,fl)  '定义一个WordReport
    wrt.Build()  '逐行生成报表
    wrt.show()  '显示报表
'==============================以上是认证报表打印=================================
Tables("退休生存人员").Filter = ""
e.Form.Close

 

要如何才能一次性显示所有图片在一个报表内.

首先还是得感谢你的帮助,如果word报表不行的话,还有其它办法可以解决这个问题吗?我自己也再想想其它解决办法!

为什么这个专业报表我找不到实例与帮助资料?能按上面word报表的格式给个具体的实例吗?