[已解决]用vba进行打印设置的问题

yangfx163 · 发表于 2014-8-16 16:45

本帖最后由 yangfx163 于 2014-8-16 17:38 编辑

zjdh 发表于 2014-8-16 16:16
这个可能更好一点

你好厉害，真是精品中的精品。我想如果难度再大一些，将失业证与申报鉴定这两个工作表中，都用打印按钮来那样打印，怎样才能做到？

wangvei · 发表于 2014-8-16 18:21

这个属于套打

hhxq001 · 发表于 2014-8-18 16:54

yangfx163 发表于 2014-8-16 16:45
你好厉害，真是精品中的精品。我想如果难度再大一些，将失业证与申报鉴定这两个工作表中，都用打印按钮来 ...

你自己照着他的照葫芦画瓢就行了

hhxq001 · 发表于 2014-8-26 19:43

zjdh 发表于 2014-8-16 16:16
这个可能更好一点

但用你这次修改的，没有显示出照片。

zjdh · 发表于 2014-8-26 21:03

hhxq001 发表于 2014-8-26 19:43
但用你这次修改的，没有显示出照片。

你不将文件解压就运行那个文件，是不会有图片的！！

hhxq001 · 发表于 2014-8-26 23:00

zjdh 发表于 2014-8-26 21:03
你不将文件解压就运行那个文件，是不会有图片的！！

嘿嘿，就是解压出来以后呢。第一个的代码可以，2、3个都不行

zjdh · 发表于 2014-8-27 07:59

那可能是你的系统问题，看第三个附件动画：

hhxq001 · 发表于 2014-8-27 14:14

那么，第三个相对第一个有什么不同

hhxq001 · 发表于 2014-8-27 14:14

本帖最后由 hhxq001 于 2014-8-27 14:16 编辑

那么，第三个相对第一个有什么不同

哎，电脑反应慢，竟然回复了2次。

hhxq001 · 发表于 2014-8-27 14:19

本帖最后由 hhxq001 于 2014-8-27 14:20 编辑

我直接下载你的附件三，在多台电脑上都没试验成功

好像主要是这几句：
ZP = ""
         For J = 7 To 24
            ZP = ZP & Cells(4, J)
         Next
         PicPath = ThisWorkbook.Path & "\照片\" & ZP & ".jpg"
         If Dir(PicPath) <> "" Then
            Set picTemp = ActiveSheet.Pictures.Insert(PicPath)

		自动登录	找回密码
密码			注册