打印成绩单

戎马书生222

有一个excel学生成绩单，想按照班级打印，打印时打印标题行，每个班级的成绩打印在一张纸上，不能在一张纸上打印2个班级的成绩。先谢谢各位大侠了!!

zjdh

简单编辑一下即可
成绩单.rar (34.34 KB, 下载次数: 12)

2024-4-11 20:41 上传

点击文件名下载附件

戎马书生222

源文件中，有40多个班，手动操作太费事了。有大侠能用vba宏帮忙解决一下吗？谢谢

戎马书生222

源文件中，有40多个班，手动操作太费事了。有大侠能用vba宏帮忙解决一下吗？谢谢

戎马书生222

源文件中有40多个班级，手动调整太费劲了。恳请高手用vba宏帮助解决一下。

3190496160

新建一个打印模板，用代码吧班级数据提取到模板中批量套打，是最佳方案

3190496160

Sub 套打()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "成绩表为空！": End
    ar = .Range(.Cells(1, 1), .Cells(r, 19))
End With
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        If d(ar(i, 1)) = "" Then
            d(ar(i, 1)) = i
        Else
            d(ar(i, 1)) = d(ar(i, 1)) & "|" & i
        End If
    End If
Next i
With Sheets("打印模板")
    For Each k In d.keys
        rr = Split(d(k), "|")
        n = 0
        ReDim br(1 To UBound(rr) + 1, 1 To UBound(ar, 2))
        For s = 0 To UBound(rr)
            xh = rr(s)
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(xh, j)
            Next j
        Next s
        .[a1].CurrentRegion.Offset(1).Borders.LineStyle = 0
        .[a1].CurrentRegion.Offset(1) = Empty
        .[a2].Resize(n, UBound(br, 2)) = br
        .[a2].Resize(n, UBound(br, 2)).Borders.LineStyle = 1
        With ActiveSheet.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
       .PrintOut
    Next k
End With
Application.ScreenUpdating = True
MsgBox "打印完毕！"
End Sub

3190496160

成绩单.rar (49.5 KB, 下载次数: 35)

2024-4-12 07:39 上传

点击文件名下载附件

戎马书生222

楼上的大侠，我想在班级考号字段上添加一行：高三月考成绩单。并且只打印班级到组合字段，不打印“批量打印”按钮。打印区域能在纸上水平居中吗？

wengjl

戎马书生222 发表于 2024-4-12 09:08
楼上的大侠，我想在班级考号字段上添加一行：高三月考成绩单。并且只打印班级到组合字段，不打印“批量打印 ...

对按钮的属性进行一下设置，可解决 不打印；对模板表进行页面设置为水平居中，即可