वर्कशीट प्रिंट करते समय रिक्त पंक्तियों को कैसे रोकें?
यदि आपकी वर्कशीट में कई रिक्त पंक्तियाँ हैं, तो सामान्यतः, जब आप शीट प्रिंट करते हैं, तो रिक्त पंक्तियाँ भी मुद्रित हो जाएंगी। रिक्त पंक्तियों को अनदेखा करके वर्कशीट को प्रिंट करने से हमारे लिए कागजात बच सकते हैं, इस मामले में, आप वर्कशीट को प्रिंट करते समय रिक्त पंक्तियों को कैसे रोक सकते हैं?
VBA कोड के साथ वर्कशीट प्रिंट करते समय रिक्त पंक्तियों को रोकें
VBA कोड के साथ वर्कशीट प्रिंट करते समय रिक्त पंक्तियों को रोकें
निम्नलिखित वीबीए कोड के साथ, आप वर्कशीट को रिक्त पंक्तियों के बिना प्रिंट कर सकते हैं, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: प्रिंट करते समय रिक्त पंक्तियों को रोकें:
Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xHideRg As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
If xHideRg Is Nothing Then
Set xHideRg = xRg.Rows(I)
Else
Set xHideRg = Union(xHideRg, xRg.Rows(I))
End If
End If
Next
xHideRg.EntireRow.Hidden = True
ActiveSheet.PrintOut Copies:=1
xHideRg.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस डेटा रेंज का चयन करें जिसे आप प्रिंट करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, और आपकी चयनित श्रेणी रिक्त पंक्तियों के बिना तुरंत मुद्रित हो गई है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!