Office中国论坛/Access中国论坛

标题: 求助怎么能自动筛选打印？ [打印本页]

作者: 我恨我顽皮 时间: 2006-9-7 17:24
标题: 求助怎么能自动筛选打印？
求助怎么能自动筛选打印？

我的A列里有好多学校名称，我想按学校名称筛选后，按学校名称打印？但学校很多，选起来很累。

怎么能实现 EXCEL筛选后，自动按学校名称打印？

谢谢！

作者: tangqp 时间: 2006-9-7 18:51
Sub Main()

Dim a() As String

If Cells(2, 1) <> "" Then
      ReDim Preserve a(1)
      a(1) = Cells(2, 1)
End If
'取不同的学校名称
For j = 3 To Sheets(1).UsedRange.Rows.Count '注意工作表
      alen = UBound(a)
      flag = False
      For k = 1 To alen
         If Cells(j, 1) = a(k) Then
            flag = True
         End If
      Next k
      If Not flag Then
         ReDim Preserve a(alen + 1)
         a(alen + 1) = Cells(j, 1)
      End If
Next j
'循环预览
Cells(1, 1).Select
Selection.AutoFilter
For i = 1 To UBound(a)
      Selection.AutoFilter Field:=1, Criteria1:=a(i)
      ActiveWindow.SelectedSheets.PrintPreview    'printout直接输出打印,要确定格式哦,否则....
Next i

End Sub

[此贴子已经被作者于2006-9-7 11:08:53编辑过]

作者: 我恨我顽皮 时间: 2006-9-7 19:02
太复杂了？你写的那些东西，我应该放到哪？

能说详细一点嘛？谢谢了

作者: tangqp 时间: 2006-9-7 19:07
Alt+F11进入vba编辑器

作者: 我恨我顽皮 时间: 2006-9-7 19:51
我都按你说的做了，可进入到了打印预览界面就不动了，而且你程序里 "取不同学校名称" 这句话我用什么来代替？

谢谢

作者: tangqp 时间: 2006-9-7 22:03
那是注释,不用代替.

关闭预览下一个学校的资料了....晕倒

作者: sblisb 时间: 2008-6-9 13:07
如何筛选后再添加一列的合计呢？

作者: sblisb 时间: 2008-6-30 18:49
能给个例子吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)