筛选后自动打印VBA

piubog

1212.rar (7.36 KB, 下载次数: 2)

2019-7-2 14:31 上传

点击文件名下载附件


请教各位大神，如何利用VBA根据班级自动筛选后并分班级打印，对于VBA是完全的小白，请各位大神不吝赐教！谢谢！

爱疯

Sub test()
    Dim i
    Sheets(1).Select
    ActiveSheet.AutoFilterMode = False

    For i = 1 To 5
        Range([a2], [e2].End(4)).AutoFilter Field:=4, Criteria1:="0" & i
        ActiveSheet.PrintOut
    Next i

    ActiveCell.AutoFilter
End Sub


1.rar (15.91 KB, 下载次数: 6)

2019-7-3 11:41 上传

点击文件名下载附件