网上找的模板打印准考证，数据多了就不显示了，求大神解决

redstarspace

准考证号	#N/A			file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image002.png
姓   名	#N/A
性   别	#N/A
身份证号	#N/A
座 位 号	#N/A	考场号	#N/A
考试地点	#N/A
考试时间	#N/A

序号超过136就会显示成如图这样，原模板就是136，但是我需要做的是300多人的，需要修改哪里呀，求大神解决。
再就是照片调用如果有重名的，怎么才能正确调用

xyxcc177

照片名用身份证号或考号命名

xyxcc177

这个可以随意打

xyxcc177

Sub delPict()
Dim sp As Shape
For Each sp In Sheet2.Shapes
   If sp.Type = 11 Then
   sp.Delete
   End If
Next

End Sub

Sub addPict(ByVal rng As Range, pName As String)
If Dir(pName) = "" Then Exit Sub
   Sheet2.Shapes.AddPicture pName, msoTrue, msoTrue, rng.Left, rng.Top, rng.Width, rng.Height
   
End Sub
Sub printall()
Dim arr
Dim path, pFile As String
Dim k, j, s, i As Integer
s = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
arr = Sheet1.Range("a2:i" & s).Value
k = UBound(arr, 1)  '
Application.ScreenUpdating = False
path = ThisWorkbook.path & "\photo\"
  For i = 1 To k - 1 Step 2
  delPict
    With Sheet2
      .[b3].Value = arr(i, 2): .[h3] = arr(i + 1, 2)
      .[b4] = arr(i, 3): .[h4] = arr(i + 1, 3)
      .[b5] = arr(i, 4): .[h5] = arr(i + 1, 4)
      .[b6] = arr(i, 5): .[h6] = arr(i + 1, 5)
       .[b7] = arr(i, 6): .[h7] = arr(i + 1, 6)
      .[d7] = arr(i, 7): .[j7] = arr(i + 1, 7)
       .[b8] = arr(i, 8): .[h8] = arr(i + 1, 8)
      .[b9] = arr(i, 9): .[h9] = arr(i + 1, 9)
  
   pFile = path & arr(i, 5) & ".png"
  addPict .Range("e3:e8"), pFile
   pFile = path & arr(i + 1, 5) & ".png"
   addPict .Range("k3:k8"), pFile
   
  .PrintPreview
    End With
  Next
  
  If k Mod 2 = 1 Then
   delPict
       With Sheet2
       i = k
      .[b3].Value = arr(i, 2): .[h3] = ""
      .[b4] = arr(i, 3): .[h4] = ""
      .[b5] = arr(i, 4): .[h5] = ""
      .[b6] = arr(i, 5): .[h6] = ""
       .[b7] = arr(i, 6): .[h7] = ""
      .[d7] = arr(i, 7): .[j7] = ""
       .[b8] = arr(i, 8): .[h8] = ""
      .[b9] = arr(i, 9): .[h9] = ""
  
   pFile = path & arr(i, 5) & ".png"   ‘照片格式不一样改这就可以’
  addPict .Range("e3:e8"), pFile
  
  .PrintOut 1, 1, 1

    End With
  
  End If
   
  Application.ScreenUpdating = False
End Sub

zpy2

人数多的话感觉还是考生自己上网根据自己身份证号自己打印比较方便。

redstarspace

xyxcc177 发表于 2018-8-11 09:22
这个可以随意打

谢谢，现在有个新问题，就是只能从一号开始打，如果从中间某个序号开始或者只打印中间的某几个没法选择从某一序号开始，再就是能不能做成生成准考证，300多个准考证都生成到某个sheet里，这样我就想打印那个都行了，不要循环了

xyxcc177

帮你一键完成心愿！