Tisk každé hodnoty v poli stránky - Excel tipy

Obsah

Raj se ptá:

V poli stránky mám nastavenou kontingenční tabulku Excel se 150 různými hodnotami. Jak mohu spustit makro pro tisk každé jednotlivé stránky? Zkoušel jsem zaznamenat makro, ale tvrdě to kóduje název každé stránky a některé z těchto stránek tam nemusí být každý týden.

Díky Visual Basic je to hračka. Toto makro používá následující:

  • Kolekce PageFields vám řekne název pole první stránky v kontingenční tabulce.
  • Kolekce PivotItems je seznam všech položek (stránek) v poli stránky.
  • Vlastnost CurrentPage umožňuje změnit, která stránka se zobrazí v kontingenční tabulce.
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

Špička čepice Rajovi za hlášení zpět s touto radou. Výše uvedené makro nebude fungovat, pokud máte kontingenční tabulku seřazenou v části Upřesnit. Obnovením tohoto nastavení na manuální problém odstraníte.

Poznámka

Tento tip projde každým polem stránky, aby je mohl vytisknout. Pokud chcete vygenerovat sešit se 150 různými listy, jeden pro každou hodnotu pole stránky, můžete použít funkci Zobrazit stránky.

Zajímavé články...