如何实现自动打印数据透视表指定内容VBA代码

cnxwj

请问:
我操作数据透视表后,想逐个按工作部门循环打印,请老师指点.如何编写VBA代码谢谢.

[ 本帖最后由 cnxwj 于 2009-2-6 17:18 编辑 ]

LangQueS

楼主的透视表是2007中做的，给个参考代码先：

Sub 测试()
On Error Resume Next
c = MsgBox("开始打印吗？", vbOKCancel + vbDefaultButton2)
If c = vbCancel Then Exit Sub
Dim pntAddress As Range
Dim tname As String
  'Application.ScreenUpdating=False   '关闭屏幕刷新
tname = "数据透视表2"
With ActiveSheet.PivotTables(tname).PivotFields("姓名")
PIcnt = .PivotItems.Count
    J = 1: JJ = 1
     For JJ = 1 To PIcnt
          .PivotItems.Item(PIcnt).Visible = True
          J = 1
          For J = 1 To PIcnt
              If JJ <> J Or .PivotItems(J).Name = "(空白)" Then
                .PivotItems.Item(J).Visible = False
              Else
                .PivotItems.Item(J).Visible = True
              End If
              Application.StatusBar = J & " － " & JJ & "/" & PIcnt
          Next J
        ActiveSheet.PivotTables(tname).PivotSelect "", xlDataAndLabel, True
        ActiveSheet.PageSetup.PrintArea = Selection.Address
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        
    Next JJ
End With
Application.ScreenUpdating = True           '打开屏幕刷新
End Sub

cnxwj

首先感谢你的帮助,经测试通过.因我对VBA尚在接触学习之中,能否提供解决思路和方法,尤其是能否给出注解?方便我参考.