Foxtable(狐表)用户栏目专家坐堂 → 骑缝章


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

主题:骑缝章

帅哥,在线噢!
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
骑缝章  发帖心情 Post By:2020/5/30 15:00:00 [只看该作者]

论坛里介绍了把骑缝章根据页数平分截取的方法,接下来,如何把截取后的图片,放到每一页word的右边?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/30 15:12:00 [只看该作者]

试试,自行设置不同的边距看效果

Dim app As New MSWord.Application
try
    Dim fileName = "e:\123.docx"
    Dim doc As object = app.Documents.Open(fileName)
    
    Dim img = "e:\123.jpg" '图片路径
        Dim Top As Integer = 100 '上边距
    Dim left As Integer = 100 ‘左边距’
    Dim w As Integer = 0 ‘宽
    Dim h As Integer = 0 ‘高
    doc.Shapes.AddPicture(img, False, True, left ,Top ,w,h)
    
    app.visible = True
    'Doc.save
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

 回到顶部
帅哥,在线噢!
qaz17909
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/5/30 15:59:00 [只看该作者]

如何直接获取一个word文档页面的宽度和高度?这样可以比较有根据地设置边距。另外,电子章的直径一般是4cm,对应的图片引用[&&图片文件,高度,宽度]中的高度和宽度是多少?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/30 16:21:00 [只看该作者]

页面的宽度:doc.PageSetup.PageWidth(以磅为单位)
高度:doc.PageSetup.PageHeight(以磅为单位)

各种单位的转换,自行百度,比如:http://www.exceloffice.net/archives/2194

 回到顶部
帅哥,在线噢!
qaz17909
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/5/30 22:15:00 [只看该作者]

目前可以做到,打开一个word文档,判断出页数,把电子印章根据页数分为若干图片,但下一步想讲若干图片分别添加到不同页的word文档中,如何实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.rar



 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/31 20:56:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.zip


 回到顶部
帅哥,在线噢!
qaz17909
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/6/3 14:26:00 [只看该作者]

生成报表的时候是好的,但打印预览的时候章就显示不完全,这个是怎么回事?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.rar



[此贴子已经被作者于2020/6/3 14:40:07编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 14:53:00 [只看该作者]

往左调整一下图片位置测试,可能超出可打印范围

 回到顶部
帅哥,在线噢!
qaz17909
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/6/3 15:36:00 [只看该作者]

应该不是图片位置的问题,我直接打开这个word,然后预览也是如此。


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 16:05:00 [只看该作者]

需要打印机的支持,需要专门的无边距打印机。选中这个打印机,然后把打印边距设置为0

 回到顶部
总数 14 1 2 下一页