以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]word报表问题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116793)
--  作者：老鼠
--  发布时间：2018/3/31 11:43:00
--  [求助]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

 

要如何才能一次性显示所有图片在一个报表内.
--  作者：有点蓝
--  发布时间：2018/3/31 12:13:00
--  
图片不支持自动缩放，可以逐行输出，手工设置每个图片的大小

ReplaceWithImage方法，将指定的内容替换为图片，语法：

ReplaceWithImage(findstr,imagefile,width,height)

findstr: 字符型，指定要查找的内容
imgefile：字符型，用于替换的图片文件
width： 整数型，指定图片宽度
height：整数型，指定图片高度

所有图片循环所有行打印即可
--  作者：老鼠
--  发布时间：2018/3/31 14:48:00
--  

首先还是得感谢你的帮助,如果word报表不行的话,还有其它办法可以解决这个问题吗?我自己也再想想其它解决办法!
--  作者：有点蓝
--  发布时间：2018/3/31 15:37:00
--  
Execl：http://www.foxtable.com/webhelp/scr/2378.htm

或者专业报表
--  作者：老鼠
--  发布时间：2018/3/31 22:17:00
--  
以下是引用有点蓝在2018/3/31 15:37:00的发言：
Execl：http://www.foxtable.com/webhelp/scr/2378.htm

或者专业报表

为什么这个专业报表我找不到实例与帮助资料?能按上面word报表的格式给个具体的实例吗?
--  作者：小美菜
--  发布时间：2018/3/31 22:57:00
--  
Sub 实现WORD图片排版功能() \'必须在WORD中进行，且在未考入正式版之前完成，否则会改变其它WORD图片结构
   If MsgBox("必须在WORD中进行，且在未考入正式版之前完成，否则会改变其它WORD图片结构!!!是否继续排版？", vbCritical + vbYesNo, "实现WORD图片排版功能") = vbNo Then Exit Sub
   将插入的图片转换成Shape
   将Shape图片旋转放大
End Sub
Sub 将插入的图片转换成Shape() \'必须在WORD中进行
     Dim n
     On Error Resume Next
     Do While ActiveDocument.InlineShapes.Count > 0
        For n = 1 To ActiveDocument.InlineShapes.Count \'.Shapes.Count
             ActiveDocument.InlineShapes.Item(n).ConvertToShape  \'.PictureFormat..IncrementRotation -90#
        Next n
     Loop
 End Sub
Sub 将Shape图片旋转放大() \'必须在WORD中进行
     Dim n
     On Error Resume Next
     Do While ActiveDocument.Shapes.Count > 0
        For n = 1 To ActiveDocument.Shapes.Count \'.Shapes.Count
             ActiveDocument.Shapes.Item(n).Height = 16.05 * 28.8 \'宽度为16cm
             ActiveDocument.Shapes.Item(n).Width = 24.1 * 28.3  \'高度为24.3cm
             ActiveDocument.Shapes.Item(n).IncrementRotation -90#
             ActiveDocument.Shapes.Item(n).WrapFormat.Type = wdWrapInline \' = 1
        Next n
     Loop
 End Sub
--  作者：有点甜
--  发布时间：2018/4/1 17:49:00
--  
以下是引用老鼠在2018/3/31 14:48:00的发言：

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

 

实例五，不就是你需要的？

 

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