राज पूछता है:
मेरे पास पृष्ठ फ़ील्ड में 150 भिन्न मानों के साथ एक्सेल पिवट टेबल सेट है। मैं प्रत्येक व्यक्तिगत पृष्ठ को प्रिंट करने के लिए मैक्रो कैसे चला सकता हूं? मैंने मैक्रो को रिकॉर्ड करने की कोशिश की, लेकिन यह प्रत्येक पृष्ठ के नाम को हार्ड कोड करता है, और उनमें से कुछ पृष्ठ सप्ताह से सप्ताह तक नहीं हो सकते हैं।
Visual Basic इसे एक स्नैप बनाता है। यह मैक्रो निम्नलिखित का उपयोग करता है:
- PageFields संग्रह आप पिवट तालिका में पहले पृष्ठ फ़ील्ड का नाम बता देंगे।
- PivotItems संग्रह सभी आइटम (पृष्ठों) पेज क्षेत्र में की एक सूची है।
- CurrentPage संपत्ति आप जो पेज पिवट तालिका में प्रदर्शित किया जाता है बदलने के लिए अनुमति देता है।
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इस संकेत के साथ वापस रिपोर्टिंग के लिए राज को टोपी की एक टिप। उपरोक्त मैक्रो तब काम नहीं करेगा जब आपके पास उन्नत के तहत आपकी पिवट टेबल छांटे। इसे मैनुअल में रीसेट करने से समस्या ठीक हो जाएगी।
ध्यान दें
यह टिप उन्हें प्रिंट करने के लिए प्रत्येक पृष्ठ फ़ील्ड के माध्यम से लूप करेगी। यदि आप 150 कार्यपत्रकों के साथ एक कार्यपुस्तिका बनाना चाहते हैं, तो प्रत्येक पृष्ठ फ़ील्ड मान के लिए, आप शो पेज सुविधा का उपयोग कर सकते हैं।
