Çalışma sayfasını yazdırırken boş satırlar nasıl durdurulur?
Çalışma sayfanızda birden çok boş satır varsa, normalde sayfayı yazdırdığınızda boş satırlar da yazdırılır. Boş satırları görmezden gelerek çalışma sayfasını yazdırmak bizim için kağıt tasarrufu sağlayabilir, bu durumda bir çalışma sayfası yazdırırken boş satırları nasıl durdurabilirsiniz?
VBA kodu ile çalışma sayfası yazdırırken boş satırları durdurun
VBA kodu ile çalışma sayfası yazdırırken boş satırları durdurun
Aşağıdaki VBA kodu ile çalışma sayfasını boş satırlar olmadan yazdırabilirsiniz, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Yazdırırken boş satırları durdurun:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve yazdırmak istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OKve seçtiğiniz aralık, boş satırlar olmadan tek seferde yazdırıldı.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!