[已解决]根据数据在特定位置自动引用制定文件夹内的图片

tianjieha

hwc2ycy 发表于 2012-12-5 16:01
没有数据的如何打印了呢。

这个是我加入的新数据的 表 您试一下

hwc2ycy

批量打印代码有个地方忘改了。

1. Sub 批量打印()
   
2. 
   
3. [code]Sub 批量打印()
   
4.     Dim iRow&, arr, i&
   
5.     iRow = Range("a" & Rows.Count).End(xlUp).Row
   
6.     If iRow <= 3 Then MsgBox "数据不足": Exit Sub
   
7.     arr = Range("a4:a" & iRow)
   
8.     For i = 4 To iRow
   
9.         [T2] = Cells(i, 1)
   
10.         Worksheets("准考证").DrawingObjects.Delete
    
11.         Path = ThisWorkbook.Path & "\pic" & [T2] & ".jpg"
    
12.         Debug.Print Path
    
13.         filename = Dir(Path)
    
14.         If Len(filename) > 0 Then
    
15.             With Worksheets("准考证")
    
16.                With .Pictures.Insert(Path)
    
17.                   .ShapeRange.Left = 340
    
18.                 .ShapeRange.Top = 80
    
19.                 .ShapeRange.Height = 140
    
20.                 .ShapeRange.Width = 110
    
21.                End With
    
22.                With .Pictures.Insert(Path)
    
23.               .ShapeRange.Left = 340
    
24.                 .ShapeRange.Top = 465
    
25.                 .ShapeRange.Height = 140
    
26.                 .ShapeRange.Width = 110
    
27.                End With
    
28.                .PrintOut
    
29.             End With
    
30.         End If
    
31.     Next
    
32. End Sub

复制代码

hwc2ycy

准考证打印.rar (14.56 KB, 下载次数: 22)

2012-12-5 16:18 上传

点击文件名下载附件

tianjieha

hwc2ycy 发表于 2012-12-5 16:14
批量打印代码有个地方忘改了。

还有就是 批量打印只能输出到0883000005开头这行（也就是第八行），下面如果新增几行数据不能批量打印出来  您在费下心

tianjieha

hwc2ycy 发表于 2012-12-5 16:18

最新的这个附件 批量打印的不能执行了啊 {:011:}

hwc2ycy

只打这5张，因为你PIC下没有照片嘛。

hwc2ycy

准考证打印最新2.rar (14.43 KB, 下载次数: 43)

2012-12-5 16:42 上传

点击文件名下载附件

重新改了，没有相片也照打不误。

陈小林