[已解决]求先自动筛选再打印代码？

小雨饰品

一个表格我经常进行按村委会名单打印分发出去，以前都是按C列的村委会设置成自动筛选，先是选一个村然后点击打印，然后重复这个动作，再筛选另一个村打印，每一个村都要筛选过再打印，我想请大师们帮助写一个代码，减少这个工作量。谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-21 22:11

1. Sub 批量打印()
   
2. 
   
3.     Dim lLastrow As Long
   
4.     Dim arr, i As Long
   
5.     Dim rg As Range
   
6.     Dim objDic As Object
   
7. 
   
8.     lLastrow = Range("a1").End(xlDown).Row
   
9. 
   
10.     Set rg = Range("a2:h" & lLastrow)
    
11.     Set objDic = CreateObject("scripting.dictionary")
    
12.     arr = Range("c3:d" & lLastrow).Value
    
13.    
    
14.     For i = LBound(arr) To UBound(arr)
    
15.         objDic(arr(i, 1)) = ""
    
16.     Next
    
17.     arr = objDic.keys
    
18.    
    
19.     rg.AutoFilter
    
20.     rg.AutoFilter field:=3
    
21.     For i = LBound(arr) To UBound(arr)
    
22.         rg.AutoFilter field:=3, Criteria1:=arr(i)
    
23.         ActiveSheet.PrintOut
    
24.     Next
    
25. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

筛选出来打印是比较好的方法。

hwc2ycy

1. Sub 批量打印()
   
2. 
   
3.     Dim lLastrow As Long
   
4.     Dim arr, i As Long
   
5.     Dim rg As Range
   
6.     Dim objDic As Object
   
7. 
   
8.     lLastrow = Range("a1").End(xlDown).Row
   
9. 
   
10.     Set rg = Range("a2:h" & lLastrow)
    
11.     Set objDic = CreateObject("scripting.dictionary")
    
12.     arr = Range("c3:d" & lLastrow).Value
    
13.    
    
14.     For i = LBound(arr) To UBound(arr)
    
15.         objDic(arr(i, 1)) = ""
    
16.     Next
    
17.     arr = objDic.keys
    
18.    
    
19.     rg.AutoFilter
    
20.     rg.AutoFilter field:=3
    
21.     For i = LBound(arr) To UBound(arr)
    
22.         rg.AutoFilter field:=3, Criteria1:=arr(i)
    
23.         ActiveSheet.PrintOut
    
24.     Next
    
25. End Sub

复制代码

小雨饰品

hwc2ycy 发表于 2013-7-21 22:11

太感谢了，这下我可省了不少事情。
再次感谢大师的帮助！！！

代码复制到哪里呢。我也是学校按班级打印资料    如果一个班级一个班的筛了在打印  就太慢了    各位高手 帮帮忙啦

zgh3003

代码复制到哪里呢?

amumxue

hwc2ycy 发表于 2013-7-21 22:11

你好，在网上找到你的自动筛选打印的编码，想问下，我如果是在A2表格里筛选打印，应该怎么更改代码？我是才学习VBA，谢谢

eplx201

hjm113

如果要选分村然后分组打印的话，如何写代码

bata

向各位学习下