Imprimați fiecare valoare în câmpul paginii - Sfaturi Excel

Cuprins

Raj întreabă:

Am un tabel pivot Excel configurat cu 150 de valori diferite în câmpul paginii. Cum pot rula o macro pentru a imprima fiecare pagină individuală? Am încercat să înregistrez macrocomanda, dar codifică greu numele fiecărei pagini, iar unele dintre aceste pagini ar putea să nu fie acolo de la o săptămână la alta.

Visual Basic face ca aceasta să fie rapidă. Această macrocomandă folosește următoarele:

  • Colecția PageFields vă va spune numele câmpului pentru prima pagină din tabelul pivot.
  • Colecția PivotItems este o listă cu toate articolele (paginile) din câmpul paginii.
  • Proprietatea CurrentPage vă permite să modificați ce pagină este afișată în tabelul pivot.
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

Un vârf al capacului lui Raj pentru că a raportat cu acest indiciu. Macrocomanda de mai sus nu va funcționa atunci când aveți tabelul pivot sortat în Advanced. Resetarea acesteia la manual va rezolva problema.

Notă

Acest sfat va parcurge fiecare câmp de pagină pentru a le imprima. Dacă doriți să generați un registru de lucru cu 150 de foi de lucru diferite, una pentru fiecare valoare a câmpului paginii, puteți utiliza caracteristica Afișare pagini.

Articole interesante...