按模版生成桌签PDF

一指禅62

myassz 发表于 2023-2-3 08:41
有什么问题吗？

不好意思，看错了。

请看 17 楼

liulang0808

Sub Button1025_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("考场库").UsedRange
    brr = Array("座位号：", "姓名:", "考场号：", "准考证号:")
    For j = 2 To UBound(arr)
        d(arr(j, 5)) = d(arr(j, 5)) & "," & j
    Next j
    Application.ScreenUpdating = False
    Sheets("桌签模版").Select
    n = 0
    For Each k In d.keys
        n = n + 1
        ActiveSheet.UsedRange.ClearContents
        crr = Split(d(k), ",")
        x = 2
        c = 1
        If UBound(crr) Mod 32 = 0 Then
            w = UBound(crr) / 32
        Else
            w = Int(UBound(crr) / 32) + 1
        End If
        n = 1
        For j = 1 To UBound(crr)
            Cells(x, c) = brr(0) & k
            r = Val(crr(j))
            Cells(x + 1, c) = brr(0) & arr(r, 2)
            Cells(x + 2, c) = brr(1) & arr(r, 4)
            Cells(x + 3, c) = brr(2) & arr(r, 3)
            x = x + 6
            If x > 45 Then
                c = c + 1
                If c = 5 Then
                    [a1:d48].PrintOut
                    f = ThisWorkbook.Path & "\" & k & "-" & arr(r, 6) & arr(r, 7) & "(" & w & "-" & n & ").pdf"
                    [a1:d48].ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    f, Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                    False
                    x = 2
                    c = 1
                    n = n + 1
                    ActiveSheet.UsedRange.ClearContents
                End If
            End If
        Next j
        If UBound(crr) Mod 32 <> 0 Then
            [a1:d48].PrintOut
            f = ThisWorkbook.Path & "\" & k & "-" & arr(r, 6) & arr(r, 7) & "(" & w & "-" & n & ").pdf"
            [a1:d48].ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            f, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
        End If
    Next k
    Application.ScreenUpdating = True
End Sub

liulang0808

根据需求又猜了一下，供参考吧

myassz

liulang0808 发表于 2023-2-3 10:03
根据需求又猜了一下，供参考吧

与要求的不一样，请老师看一下，谢谢！

liulang0808

myassz 发表于 2023-2-3 10:23
与要求的不一样，请老师看一下，谢谢！

你的要求看不大懂的

andysky

andysky 发表于 2023-2-3 08:45
用 E灵 可以瞬间生所有标签，然后直接打印即可。
以下为操作动画：

这个是通用的，标签格式不管如何调整，都不需要重写代码
一个代码解决所有问题

一指禅62

myassz 发表于 2023-2-3 08:41
有什么问题吗？

按考场生成考试桌签.zip (102.98 KB, 下载次数: 37)

2023-2-3 13:27 上传

点击文件名下载附件

一指禅62

每个考试时间生成一个PDF文件

一指禅62

每个考试时段生成一个PDF文件


按考场生成考试桌签.zip (103.81 KB, 下载次数: 23)

2023-2-3 14:50 上传

点击文件名下载附件

myassz

一指禅62 发表于 2023-2-3 13:27

老师的程序是按考场生成的，与我的需求不一样。

因数据库中每个考场人数最多30人，生成的页面打印出来是这样的（第1页全是01座位号、第2页全是02座位号……第30页全是30座位号，且考场号是：第1页是001-032考场号、第2页是001-032考场号……第30页是001-032考场号）。以此类推，直到生成完毕数据。考场号是032以内的只要30页，考场号是064以内的只要60页。如考场人数不足30人，“准考证号”单元格显示“空位”

这样设计的目的是方便打印出来后按考场裁剪下来贴在考场的桌面上，只有按1-30页，31-60页，……这样分成一叠，用切纸机切一叠纸张的同一个位置就是同一考场的