打印成绩单

戎马书生222

chxw68 发表于 2024-4-16 21:49
闲来无事练练手，加了一个窗体灵活选择。

你好。我想打印时，比如选择“政史地”的班级，不打印物理、化学、生物的成绩列，如何实现？谢谢了！！

chxw68

戎马书生222 发表于 2024-4-17 06:10
你好。我想打印时，比如选择“政史地”的班级，不打印物理、化学、生物的成绩列，如何实现？谢谢了！！

代码执行结果就是你要求的，你试了吗？

戎马书生222

chxw68 发表于 2024-4-17 08:16
代码执行结果就是你要求的，你试了吗？

请问哪一个附件？
打印出来如图。选科“政史地”的班级，也把物理化学生物打印出来了

戎马书生222

chxw68 发表于 2024-4-17 08:16
代码执行结果就是你要求的，你试了吗？

打印出来如图。选科“政史地”的班级，也把物理化学生物打印出来了

chxw68

戎马书生222 发表于 2024-4-17 09:13
打印出来如图。选科“政史地”的班级，也把物理化学生物打印出来了

可能代码有错误，那你就用别人的吧。

sunshuangzhong

这个要进行判断的，如果一个班全是同一选科还较简单，直接删除无关学科的列就行，如果有混班，还是要根据该科总分不为o决定是否保留该学科。
其实又不影响，凑合着用吧。

戎马书生222

sunshuangzhong 发表于 2024-4-17 09:24
这个要进行判断的，如果一个班全是同一选科还较简单，直接删除无关学科的列就行，如果有混班，还是要根据该 ...

每个班，都是同一个选科组合。

sunshuangzhong

试试呢

.[a2].Resize(n + 1, UBound(br, 2)).Borders(xlEdgeRight).Weight = xlMedium
            
            '-----------------------
            
             '此处删除空学科列
            bjxk = .Cells(3, 19)
            .Cells(2, 11) = "史历"
            For j = 12 To 7 Step -1 '
                If InStr(bjxk, Left(.Cells(2, j), 1)) = 0 Then
                     .Columns(j).Delete Shift:=xlShiftToLeft
            
                End If
            Next
            If .Cells(2, 8) = "史历" Then
                .Cells(2, 11) = "历史"
            End If
            
            '----------------------------
            
            
            With ActiveSheet.PageSetup

戎马书生222

chxw68 发表于 2024-4-17 09:19
可能代码有错误，那你就用别人的吧。

感谢了。下载了附件，已经成功。

戎马书生222

chxw68 发表于 2024-4-16 21:49
结果不符合楼主要求故删除。

不好意思。太符合需求了。已经用上了。