求助调用excel、照片路径打印准考证问题

碧水惊澜

1、需要打印准考证，大概格式如左侧的样子

2、需要把照片显示到准考证上

3、打印需要 批量打印 和单独打印，就是 按姓名或身份证号码 可以查找考生信息，然后打印当前内容

4、谢谢

示例.zip (44.63 KB, 下载次数: 47)

2012-12-31 16:52 上传

点击文件名下载附件

lhdcxz

正好在做这个题目（自定义格式自动形成证照）。等节后上班给你试用。也可能发新帖分享。注意关注。

碧水惊澜

谢谢 大侠，能先给点思路不，我也试试，急用啊，等不到节后啦， 哈哈~~

xsy我可以很好

碧水惊澜 发表于 2012-12-31 17:48
谢谢 大侠，能先给点思路不，我也试试，急用啊，等不到节后啦， 哈哈~~

前几天帮网友做的，你做参考吧

代课通知.rar (31.43 KB, 下载次数: 192)

2012-12-31 18:54 上传

点击文件名下载附件

碧水惊澜

大侠，封装了啊，dll的啊，咋参考啊，好难啦，给个源码呗，

jacklih

很粗糙的做了一个,只能应急的时候用用.

zhaogang1960

在需要显示照片的位置插入一个图像控件Image1

1. Private Sub CommandButton1_Click() '批量打印
   
2.     Dim a, arr, p$, i&, j&, w
   
3.     p = ThisWorkbook.Path & ""
   
4.     arr = Sheets("考生信息").Range("A1").CurrentRegion
   
5.     a = Array("", "", "", "", "C11", "C7", "C9", "", "C13", "", "C17", "C15")
   
6.     Me.PageSetup.PrintArea = "$A$1:$H$28"
   
7.     With Me.Image1
   
8.         w = .Width
   
9.         For i = 2 To UBound(arr)
   
10.             .Picture = LoadPicture("")
    
11.             If Dir(p & arr(i, 9)) <> "" Then .Picture = LoadPicture(p & arr(i, 9))
    
12.             .PictureSizeMode = 1
    
13.             .Width = w * 0.99
    
14.             .Width = w
    
15.             For j = 4 To UBound(a)
    
16.                 If Len(a(j)) Then Range(a(j)).Value = arr(i, j)
    
17.             Next
    
18.             Me.PrintOut
    
19.         Next
    
20.         .Picture = LoadPicture("")
    
21.     End With
    
22. End Sub
    

复制代码

zhaogang1960

请看附件
示例.rar (61.63 KB, 下载次数: 108)

2012-12-31 20:06 上传

点击文件名下载附件

zhaogang1960

1. Private Sub Worksheet_Change(ByVal Target As Range) '单独打印
   
2.     If Target = "" Then Exit Sub
   
3.     If Target.Address <> "$E$33" And Target.Address <> "$G$33" Then Exit Sub
   
4.     Dim arr, p$, c As Range, l%, j&, w
   
5.     If Target.Address = "$E$33" Then l = 5 Else l = 4
   
6.     a = Array("", "", "", "", "C11", "C7", "C9", "", "C13", "", "C17", "C15")
   
7.     Me.PageSetup.PrintArea = "$A$1:$H$28"
   
8.     p = ThisWorkbook.Path & ""
   
9.     With Sheets("考生信息")
   
10.         Set c = .Columns(l).Find(Target.Value, , , 1)
    
11.         If Not c Is Nothing Then
    
12.             arr = .Cells(c.Row, 1).Resize(, 11)
    
13.             With Me.Image1
    
14.                 w = .Width
    
15.                 If Dir(p & arr(1, 9)) <> "" Then .Picture = LoadPicture(p & arr(1, 9)) Else .Picture = LoadPicture("")
    
16.                 .PictureSizeMode = 1
    
17.                 .Width = w * 0.99
    
18.                 .Width = w
    
19.                 For j = 4 To UBound(a)
    
20.                     If Len(a(j)) Then Range(a(j)).Value = arr(1, j)
    
21.                 Next
    
22.                 Me.PrintOut
    
23.                 .Picture = LoadPicture("")
    
24.             End With
    
25.         Else
    
26.             MsgBox "没有查到"
    
27.         End If
    
28.     End With
    
29. End Sub

复制代码

zhaogang1960

单击按钮全部打印，输入姓名或身份证号单独打印
请看附件
示例.rar (63.16 KB, 下载次数: 206)

2012-12-31 20:24 上传

点击文件名下载附件