Excel में रिक्त पंक्तियों के बिना वर्कशीट कैसे प्रिंट करें?
वर्कशीट प्रिंट करते समय, रिक्त पंक्तियाँ भी प्रिंट हो जाएंगी। कुछ एक्सेल उपयोगकर्ताओं के लिए, वे डेटा को कॉम्पैक्ट करने और कागजात को बचाने के लिए रिक्त पंक्तियों के बिना वर्कशीट प्रिंट करते हैं। लेकिन एक्सेल में खाली पंक्तियों के बिना वर्कशीट कैसे प्रिंट करें। यह आलेख आपके लिए दो विधियाँ प्रदान करता है.
VBA कोड से मुद्रण से पहले रिक्त पंक्तियाँ छिपाएँ
Excel के लिए Kutools से मुद्रण करने से पहले रिक्त पंक्तियाँ हटाएँ
VBA कोड से मुद्रण से पहले रिक्त पंक्तियाँ छिपाएँ
वर्कशीट को प्रिंट करने से पहले, आप एक निर्दिष्ट सीमा में रिक्त पंक्तियों को छिपाने के लिए नीचे दिए गए VBA कोड को चला सकते हैं। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. और फिर मॉड्यूल विंडो में VBA कोड के नीचे कॉपी और पेस्ट करें।
VBA कोड: चयनित श्रेणी में रिक्त पंक्तियाँ छिपाएँ
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub
3। दबाएं F5 कोड चलाने के लिए कुंजी, फिर a एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया रिक्त पंक्तियों वाली श्रेणी का चयन करें जिसे आप प्रिंट नहीं करना चाहते हैं, और फिर क्लिक करें OK बटन.
फिर चयनित श्रेणी की सभी रिक्त पंक्तियाँ तुरंत छिपा दी जाती हैं। फिर आप रिक्त पंक्तियों के बिना वर्कशीट को प्रिंट करना शुरू कर सकते हैं।
नोट: मुद्रण के बाद, आप इन रिक्त पंक्तियों को निम्नलिखित VBA कोड से खोल सकते हैं।
VBA कोड: चयनित श्रेणी में सभी रिक्त पंक्तियाँ दिखाएँ
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End Sub
Excel के लिए Kutools से मुद्रण करने से पहले रिक्त पंक्तियाँ हटाएँ
यदि आप रिक्त पंक्तियों के बिना वर्कशीट प्रिंट करना चाहते हैं, तो हम आपको सभी रिक्त पंक्तियों को हटाने की सलाह देते हैं रिक्त पंक्तियाँ हटाएँ की उपयोगिता एक्सेल के लिए कुटूल, और फिर आप वर्कशीट को मैन्युअल रूप से प्रिंट कर सकते हैं।
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
1। क्लिक करें कुटूल > मिटाना > रिक्त पंक्तियाँ हटाएँ > चयनित रेंज में/एक्टिव शीट में/चयनित शीट्स में/सभी शीटों में आपकी आवश्यकताओं के आधार पर। स्क्रीनशॉट देखें:
नोट: किसी श्रेणी में रिक्त पंक्तियों को हटाने के लिए, कृपया पहले इस श्रेणी का चयन करें और फिर फ़ंक्शन लागू करें।
2. फिर एक डायलॉग बॉक्स पॉप अप होता है जो आपको बताता है कि कितनी पंक्तियाँ हटा दी गई हैं, कृपया क्लिक करें OK बटन.
अब सभी रिक्त पंक्तियाँ हटा दी गई हैं। आप अपनी वर्कशीट प्रिंट करना शुरू कर सकते हैं.
नोट: यह उपयोगिता पूर्ववत करने का समर्थन करती है कंट्रोल + Z.
यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!