调用打印

yklisten

各位大神，我电子表格里有如下记录：比如A列单元格有如下不连续的值1001,1002,1003，1008,1009
能否根据这个单元格的值取相应文件夹内同名.jpg文件进行连续打印，1001.jpg，1002.jpg等等，坐等。

苏子龙

可以的，根据清单打印

yklisten

苏子龙 发表于 2017-3-1 14:52
可以的，根据清单打印

给个具体的办法，我不懂啊

苏子龙

yklisten 发表于 2017-3-1 15:31
给个具体的办法，我不懂啊

你都讲得迷迷糊糊，我怎么可能具体说明？请上传附件，说清要求，模拟结果

yklisten

苏子龙 发表于 2017-3-2 08:13
你都讲得迷迷糊糊，我怎么可能具体说明？请上传附件，说清要求，模拟结果

不好意思，附件上传

苏子龙

yklisten 发表于 2017-3-2 15:23
不好意思，附件上传

用word邮件合并方法就可以了吧，晚些时候给个动画给你
插入图片域后用alt+F9切换
最后用ctrl+a全选，F9刷新

苏子龙

另做了个excel打印代码，是否满足要求,代码后改动了一点，看附件

1. Sub printpz()
   
2. Dim arr, i%, ks%, js%, ph$, TpNm$
   
3. Dim tp As Shape
   
4. ks = [j1]: js = [j2]
   
5. ph = ThisWorkbook.Path & ""
   
6. ActiveSheet.PageSetup.PrintArea = Range("a1:c3").Address '打印区域
   
7. arr = Sheet1.UsedRange
   
8. For i = 2 To UBound(arr)
   
9.     If i > js Then Exit Sub '条件判断
   
10.     If ks > js Then MsgBox "请检查开始页是否正确"
    
11.     For Each tp In Shapes '删除已有图片
    
12.         If tp.Top = Range("a3").Top And tp.Left = Range("a3").Left Then tp.Delete
    
13.     Next
    
14.         If i >= ks Then
    
15.             [b1] = arr(i, 1)
    
16.             If Dir(ph & arr(i, 1) & ".*") <> "" Then
    
17.             TpNm = Dir(ph & arr(i, 1) & ".*")
    
18.                 With Range("a3:c3") '插入图片
    
19.                         Me.Shapes.AddPicture Filename:=ph & TpNm, LinkToFile:=True, SaveWithDocument:=False, _
    
20.                                              Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
    
21.                 End With
    
22.             Else
    
23.                 Range("a3:c3") = "无此凭证图片"
    
24.             End If
    
25.         End If
    
26.     ActiveSheet.PrintOut '打印
    
27. Next
    
28. End Sub

复制代码

yklisten

苏子龙 发表于 2017-3-3 10:20
另做了个excel打印代码，是否满足要求,代码后改动了一点，看附件

功能很好，但是我改成我真实的凭证图片后，打印出来太小了，我想打印成宽25，高15cm的图片怎么改代码呢？十分感谢、
Width:=500, Height:=300 改了之后图片只能打印一半，高度也有点走样。

苏子龙

yklisten 发表于 2017-3-7 13:54
功能很好，但是我改成我真实的凭证图片后，打印出来太小了，我想打印成宽25，高15cm的图片怎么改代码呢？ ...

把单元格高和宽设定下就好了，注意行500，列300不是实际的mm单位

yklisten

苏子龙 发表于 2017-3-7 16:29
把单元格高和宽设定下就好了，注意行500，列300不是实际的mm单位

获取当前文件夹及子文件夹内符合条件的图片，怎么弄呢