利用已有信息和固定模版批量制作打印准考证和报名信息表

爱疯

dyzx 发表于 2016-5-24 13:57
爱疯老师:报名登记表怎样打印，好像没有见到代码或按钮，多谢指教。

没注意到还有这问题，楼下有加。

爱疯

Sub printRegister()
    Dim arrData(), arrReg(), i&

    arrData = Sheets("报名登记表信息").Range("a1").CurrentRegion.Value
    arrReg = [A1:P33].Value

    For i = 2 To UBound(arrData)
        'arrReg(5, 3) = arrData(i, 1)       '总序号 = ？
        'arrReg(5, 3) = arrData(i, 2)       '序号 = ？
        arrReg(3, 4) = arrData(i, 3)       '毕业学校d3
        arrReg(3, 13) = arrData(i, 4)      '学籍号m3
        arrReg(5, 3) = arrData(i, 5)       '姓名c5
        arrReg(5, 7) = arrData(i, 6)       '性别g5
        arrReg(5, 12) = arrData(i, 7)      '出生年月L5
        arrReg(6, 3) = arrData(i, 8)       '籍贯c6
        arrReg(6, 7) = arrData(i, 9)       '民族g6
        arrReg(6, 12) = arrData(i, 10)    '准考证号码l6

        [a1].Resize(UBound(arrReg), UBound(arrReg, 2)) = arrReg
        Me.PrintOut
    Next i
End Sub

信息表准考证7.rar (44.1 KB, 下载次数: 159)

2016-5-24 15:33 上传

点击文件名下载附件




看漏了，现在才发现，还有打印一个表。
其中，总序号和序号没看出对应的是哪儿，就没处理。
是这样吗？

dyzx

爱疯 发表于 2016-5-24 15:41
Sub printRegister()
    Dim arrData(), arrReg(), i&

多谢爱疯老师，就是要这个效果，多谢。