准考证批量打印，本人菜鸟一枚，不知道如何设置，烦请各位高手鼎力帮助，不胜感激！

luoyezhuifeng · 发表于 2020-5-31 11:16

上级部门发下准考证模板，学校要依照模板做好准考证。因为参加考试学生数多，依靠人工填写工作量大，不知道软件怎么实现批量打印，减轻工作量！烦请各位朋友帮忙！

luoyezhuifeng · 发表于 2020-5-31 11:20

用A4纸打印，2列4行一面，一面8张准考证

3190496160 · 发表于 2020-5-31 13:25

你自己都懒得把模板做好，或者说也懒得告诉别人模板的具体要求，比如：一张A4纸张打印几份，准考证几排排列？？？

3190496160 · 发表于 2020-5-31 13:34

还有，既然是准考证，模板中怎么会连考场号，座位号都没有呢？？没法理解啊

shenjianrong163 · 发表于 2020-5-31 13:36

你起码要将模块排版成一张A4纸的样子。

3190496160 · 发表于 2020-5-31 13:55

Sub 生成准考证()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets("试场安排表")
ar = sh.[a1].CurrentRegion
m = UBound(ar) - 2
If m / 2 = Int(m / 2) Then
sl = m / 2
Else
sl = Int(m / 2) + 1
End If
With Sheets("准考证模板")
r = .Cells(Rows.Count, 5).End(xlUp).Row + 20
.Rows("12:" & r).Delete
.Range("F5:H5,F7,H7,F9,H9,P5:R5,P7,R7,P9,R9") = Empty
m = 12
For i = 1 To sl - 1
      .Rows("1:11").Copy .Cells(m, 1)
      m = m + 11
Next i
m = 5
For i = 3 To UBound(ar) Step 2
      .Cells(m, 6) = ar(i, 6)
      .Cells(m + 2, 6) = ar(i, 4)
      .Cells(m + 2, 8) = ar(i, 5)
      .Cells(m + 4, 6) = ar(i, 2)
      .Cells(m + 4, 8) = ar(i, 3)

      .Cells(m, 16) = ar(i + 1, 6)
      .Cells(m + 2, 16) = ar(i + 1, 4)
      .Cells(m + 2, 18) = ar(i + 1, 5)
      .Cells(m + 4, 16) = ar(i + 1, 2)
      .Cells(m + 4, 18) = ar(i + 1, 3)
      m = m + 11
Next i
.Select
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2020-5-31 13:56

2019级数据.rar (36.17 KB, 下载次数: 34)

duquancai · 发表于 2020-5-31 16:09

本人菜鸟一枚，所以等代码

云海拾贝 · 发表于 2020-5-31 16:34

收藏学习，类似邮件合并。

luoyezhuifeng · 发表于 2020-6-2 08:52

谢谢各位各位高手、热心人士！谢谢大家指教

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

[求助] 准考证批量打印，本人菜鸟一枚，不知道如何设置，烦请各位高手鼎力帮助，不胜感激！

评分

最新热点 /1