Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]word报表问题?


  共有2038人关注过本帖树形打印复制链接

主题：[求助]word报表问题?
帅哥哟，离线，有人找我吗？
老鼠
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3658 威望：0 精华：0 注册：2008/11/2 21:50:00 		[求助]word报表问题?  发帖心情 Post By：2018/3/31 11:43:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:认证资料.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

 

要如何才能一次性显示所有图片在一个报表内.
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/31 12:13:00 [只看该作者]

图片不支持自动缩放，可以逐行输出，手工设置每个图片的大小

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

ReplaceWithImage(findstr,imagefile,width,height)

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

所有图片循环所有行打印即可
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3658 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2018/3/31 14:48:00 [只看该作者]

首先还是得感谢你的帮助,如果word报表不行的话,还有其它办法可以解决这个问题吗?我自己也再想想其它解决办法!
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/31 15:37:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3658 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2018/3/31 22:17:00 [只看该作者]

以下是引用有点蓝在2018/3/31 15:37:00的发言：
Execl：http://www.foxtable.com/webhelp/scr/2378.htm

或者专业报表

为什么这个专业报表我找不到实例与帮助资料?能按上面word报表的格式给个具体的实例吗?
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 17:49:00 [只看该作者]

以下是引用老鼠在2018/3/31 14:48:00的发言：

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

 

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

 

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

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询