怎样能自动筛选打印？

yelang2005

我的成绩表B列是很多学校名，我想按学校分别把成绩表打印出来，如果用自动筛选，一张一张打印，很麻烦，也很慢，怎样能自动把这些成绩表按学校名分别打印出来？
谢谢！！

ayu330602

原帖由 yelang2005 于 2009-6-6 17:55 发表
我的成绩表B列是很多学校名，我想按学校分别把成绩表打印出来，如果用自动筛选，一张一张打印，很麻烦，也很慢，怎样能自动把这些成绩表按学校名分别打印出来？
谢谢！！

给你化了点时间,能让你为工作带来便利就好
说明:
   1、打开文件时，要点启用宏,
   2、一按“打印成绩单”按钮轻松搞定，当然打印机要保证正常
   说明:代码仅限打印一页和现工作表有的校名

[ 本帖最后由 ayu330602 于 2009-6-10 10:42 编辑 ]

yelang2005

非常感谢！！

yelang2005

如果能详细说一下过程就更好了！

yanjie

Sub yanjie()
Dim ws As Worksheet, d, i&, rg As Range, arr
Set ws = ActiveSheet
Set d = CreateObject("scripting.dictionary")
i = ws.Range("b65536").End(xlUp).Row
For Each rg In ws.Range("b3:b" & i)
If Not d.exists(rg.Value) Then d.Add rg.Value, ""
Next rg
arr = d.keys
For i = 0 To UBound(arr)
Range("b2:b" & i).AutoFilter 1, arr(i), xlFilterValues
'ws.PrintPreview 可以打印预览！
ws.PrintOut copies:=1, collate:=True
Next i
End Sub

ayu330602

原帖由 yelang2005 于 2009-6-10 12:36 发表
如果能详细说一下过程就更好了！

仅有一个过程呀,代码是写按钮的点击事件上。
Range("B2:B65536").Select   '选择B2单元格到末尾,目的是只以B列为对象,也就是说只有B2上才有自动筛选功能
Selection.AutoFilter                '对指定工作表的自动筛选
Selection.AutoFilter Field:=1, Criteria1:="中心1班"    '选择打印班级
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True  'PrintOut,指定打印对象,copies:=1打印第1页
如果要按实有记录的页数打印,得先测试行数,通过变量,然后确定copies:=?比较复杂点.
班级的多少问题得加判断
版主老师的代码比较深点,初学者理解可能有点难度

[ 本帖最后由 ayu330602 于 2009-6-10 19:26 编辑 ]

yelang2005

再次表示感谢！！

yelang2005

谢谢大家的帮助，使我的工作更加便捷！

yelang2005

版主老师：
    我用你的代码为什么执行不了呢？请你做个附件上来，可以吗？
   对不起，我对代码还是一窍不通。

ayu330602

如果你仅为了工作的便捷,没有进一步学习VBA编程打算的话,用我这种初级的方法就可以了,如果班级有变化,只要进入VBA编辑器复制或删除以下两句代码就可以了
Selection.AutoFilter Field:=1, Criteria1:="中心1班"    '红色部分根据实际
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True  'PrintOut   '上下两句应连用
可把这个工作簿作为模板使用,
有超 过一页的班级时,超过的页可单独打印

[ 本帖最后由 ayu330602 于 2009-6-11 10:58 编辑 ]