Drucken Sie jeden Wert im Seitenfeld - Excel-Tipps

Inhaltsverzeichnis

Raj fragt:

Ich habe eine Excel-Pivot-Tabelle mit 150 verschiedenen Werten im Seitenfeld eingerichtet. Wie kann ich ein Makro ausführen, um jede einzelne Seite zu drucken? Ich habe versucht, das Makro aufzuzeichnen, aber es codiert den Namen jeder Seite fest, und einige dieser Seiten sind möglicherweise nicht von Woche zu Woche vorhanden.

Visual Basic macht dies zum Kinderspiel. Dieses Makro verwendet Folgendes:

  • In der PageFields- Auflistung wird der Name des ersten Seitenfelds in der Pivot-Tabelle angezeigt .
  • Die PivotItems- Auflistung ist eine Liste aller Elemente (Seiten) im Seitenfeld.
  • Mit der CurrentPage- Eigenschaft können Sie ändern, welche Seite in der Pivot-Tabelle angezeigt wird.
Sub PrintAll() ' Find name of page field PageField1 = ActiveSheet.PivotTables("PivotTable1").PageFields(1) ' Save the name of the page field displayed when macro begins OrigPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage ' Determine how many pages there are in page field NumPages = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems.Count For i = 1 To NumPages ThisPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems(i) ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = ThisPage ActiveWindow.SelectedSheets.PrintOut Next i ' Print the (all) page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = "(all)" ActiveWindow.SelectedSheets.PrintOut ' Restore view back to original page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = OrigPage End Sub

Ein Tipp für Raj, der sich mit diesem Hinweis gemeldet hat. Das obige Makro funktioniert nicht, wenn Sie Ihre Pivot-Tabelle unter Erweitert sortiert haben. Durch Zurücksetzen auf manuell wird das Problem behoben.

Hinweis

Dieser Tipp durchläuft jedes Seitenfeld, um sie zu drucken. Wenn Sie eine Arbeitsmappe mit 150 verschiedenen Arbeitsblättern erstellen möchten, eines für jeden Seitenfeldwert, können Sie die Funktion Seiten anzeigen verwenden.

Interessante Beiträge...