如何一次更改和打印单个数据透视表的多个过滤器？

debugcn 发表于 Dev

日光病

概述：

我有一个带有过滤器的数据透视表。过滤器包含一个1到30的列表，每个列表必须单独打印。也就是说，每次我必须更换过滤器并打印过滤后的结果。

我的要求：

我想要的是一次打印所有这些。

使适应：

数字列表不是连续的还是静态的。这意味着某些数字将被删除，某些新的数字可能会在以后添加。

我目前的状况和挑战

通过宏记录器命令，我可以达到以下情况。但是问题是，我不知道如何使其动态。我的意思是，怎么说“对现有数字进行处理”。

有人可以帮我纠正和完成以下宏吗？

Sub Makro1()
'
' Makro1 Makro
'     
    ActiveSheet.PivotTables("Leistungsnachweise").PivotFields("Tour").CurrentPage _ = "1"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False
    ActiveSheet.PivotTables("Leistungsnachweise").PivotFields("Tour").CurrentPage _ = "2"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

End Sub

谢谢，
迪奥

日光病

在以下链接中，有人给了我明确的答案。我发现它很有用，因此我与您分享。

您可以在Ozgrid论坛中找到它

这是答案的副本：

Sub LoopField() 
Dim pivF As PivotField 
Dim pivI As PivotItem 

Set pivF = ActiveSheet.PivotTables("Leistungsnachweise").PivotFields("Tour")  
Application.ScreenUpdating = False 
For Each pivI In pivF.PivotItems 
    pivF.CurrentPage = pivI.Name 

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False 
Next pivI 
 'Clear filer
pivF.ClearAllFilters 

Application.ScreenUpdating = True 
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。