Excel में अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर पंक्तियाँ कैसे दोहराएँ?
कई मामलों में, आपको एक्सेल में प्रत्येक मुद्रित पृष्ठ के शीर्ष पर हेडर पंक्ति को दोहराने की आवश्यकता हो सकती है। लेकिन अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर पंक्तियों को कैसे दोहराया जाए? यह आलेख आपको इसे प्राप्त करने की विधि दिखाएगा.
वीबीए कोड वाले अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर पंक्तियों को दोहराएं
वीबीए कोड वाले अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर पंक्तियों को दोहराएं
आप अंतिम पृष्ठ को छोड़कर शीर्ष पर दोहराई गई पंक्तियों वाले सभी पृष्ठों को प्रिंट करने के लिए नीचे दिए गए VBA कोड को चला सकते हैं। कृपया निम्नानुसार करें.
1. वर्कशीट खोलें जिसमें आपको अंतिम पृष्ठ को छोड़कर शीर्ष पर पंक्तियों को दोहराना है, फिर दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए: एक्सेल में अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर पंक्तियों को दोहराएं
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub
3। दबाएं F5 कोड चलाने के लिए कुंजी, फिर a एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया उस पंक्ति श्रेणी का चयन करें जिसे आपको अंतिम पृष्ठ को छोड़कर प्रत्येक प्रिंटआउट के शीर्ष पर दोहराना है, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर इस वर्कशीट के सभी पृष्ठ अंतिम पृष्ठ को छोड़कर शीर्ष पर दोहराई जाने वाली कुछ पंक्तियों के साथ मुद्रित होते हैं।
संबंधित लेख:
- एक्सेल में नया मान दिखने या पहुंचने तक सेल मान को कैसे दोहराया जाए?
- एक्सेल में किसी सेल में किसी कैरेक्टर को n बार कैसे दोहराएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!