Viele Pivot als eine PDF drucken
14.11.2019 22:41:35
kolja
Ich möchte gerne alle 13 Varianten einer Pivottabelle auf einmal drucken.
Am liebsten in eine PDF, aber das ist ertmal nicht so wichtig.
Die Schleife soll duch die Felder "Einheit" der Pivotabelle "Abrechnung" des Tabellenblatts "Abrechnung gehen:
Abrechnung.PivotTables("Abrechnung").PivotFields("Einheit").CurrentPage
Leider bekomme ich in der "Select CAse" Zeile einen 1004 Fehler,
weiß aber nicht, was ich falsch mache:
Sub Drucken()
Abrechnung.PageSetup.PrintArea = "$D$10:$T$68"
Application.ActivePrinter = "Microsoft Print to PDF auf Ne01:"
For intItem = 1 To 13
Select Case Abrechnung.PivotTables("Abrechnung").PivotFields("Einheit").PivotItems(intItem). _
Name
Case "(All)", "(Alle)"
Case Else
Abrechnung.PivotTables("Abrechnung").PivotFields("Einheit") = Abrechnung.PivotTables(" _
Abrechnung").PivotFields("Einheit").PivotItems(intItem).Name
Abrechnung.PivotTables("Abrechnung").RefreshTable
objChart.PrintOut
End Select
Next
End Sub
Gruß Kolja