主题：[求助]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

 

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