校卡批量打印

yh21cn · 发表于 2024-3-6 23:46

本帖最后由 yh21cn 于 2024-3-8 06:46 编辑

在数据源中有学生信息，如何根据设置的打印起始序号与打印终止序号进行批量一次打印所有相关学生校卡，每页打印8个学生，也就是说如果起始序号是2，那第一页就打印2-9的学生校卡，然后第二页就是10-17的学生校卡，直到打印到设置的终止序号停止打印，谢谢

校卡打印.rar (25.77 KB, 下载次数: 8)

yh21cn · 发表于 2024-3-7 05:57

大侠们帮一下，谢谢

liulang0808 · 发表于 2024-3-7 08:08

论坛里先搜一下，雷同的案例应该不少的

chengyunpan · 发表于 2024-3-7 08:12

需要打印照片吗？

liulang0808 · 发表于 2024-3-7 08:23

Sub 打印初中()
  Application.ScreenUpdating = False '关闭屏幕刷新
  Set sh1 = Sheets("中学")
  Set sh2 = Sheets("数据源(中学)")
s = sh1.Cells(1, 15)
e = sh1.Cells(1, 17)
If s = "" Or Not VBA.IsNumeric(s) Or Not VBA.IsNumeric(e) Then MsgBox "请先设置打印的开始序号"
If Val(s) > Val(e) Then MsgBox "开始序号不能大小于终止序号！"
r = 5
c = 0
   For i = s To e
      Set cx = sh2.Range("a:a").Find(i, lookat:=xlWhole)
      If Not cx Is Nothing Then
         c = c + 3
         sh1.Cells(r, c) = sh2.Cells(cx.Row, 2)
         sh1.Cells(r + 1, c) = sh2.Cells(cx.Row, 3)
         sh1.Cells(r + 2, c) = sh2.Cells(cx.Row, 4)
         If i = e Or (r = 11 And c >= 11) Then

            [a1:l13].PrintOut
         End If
         If c >= 11 Then
            r = r + 6
            c = 0
            If r > 11 Then r = 5
         End If
      End If
   Next i
  Application.ScreenUpdating = True  '打开屏幕刷新
End Sub

liulang0808 · 发表于 2024-3-7 08:24

校卡打印.zip (24.72 KB, 下载次数: 34)
内容清空，可以自己设置下。。。。。

yh21cn · 发表于 2024-3-7 08:31

chengyunpan 发表于 2024-3-7 08:12
需要打印照片吗？

不用打印照片，谢谢

yh21cn · 发表于 2024-3-7 08:32

liulang0808 发表于 2024-3-7 08:23
Sub 打印初中()
Application.ScreenUpdating = False '关闭屏幕刷新
Set sh1 = Sheets("中学")

谢谢大大的帮忙

yh21cn · 发表于 2024-3-7 08:32

liulang0808 发表于 2024-3-7 08:24
内容清空，可以自己设置下。。。。。

谢谢版主，感谢！

yh21cn · 发表于 2024-3-7 08:35

liulang0808 发表于 2024-3-7 08:24
内容清空，可以自己设置下。。。。。

完美解决，再次感谢

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

[已解决] 校卡批量打印

评分

评分