Wie stoppe ich leere Zeilen beim Drucken von Arbeitsblättern?
Wenn Ihr Arbeitsblatt mehrere leere Zeilen enthält, werden beim Drucken des Blatts normalerweise auch die leeren Zeilen gedruckt. Das Drucken des Arbeitsblatts unter Berücksichtigung der leeren Zeilen kann uns Papier ersparen. Wie können Sie in diesem Fall beim Drucken eines Arbeitsblatts verhindern, dass leere Zeilen vorhanden sind?
Stoppen Sie leere Zeilen, wenn Sie ein Arbeitsblatt mit VBA-Code drucken
Stoppen Sie leere Zeilen, wenn Sie ein Arbeitsblatt mit VBA-Code drucken
Mit dem folgenden VBA-Code können Sie das Arbeitsblatt ohne Leerzeilen drucken. Gehen Sie hierzu bitte wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Leerzeilen beim Drucken stoppen:
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. Dann drücken F5 Drücken Sie die Taste, um diesen Code auszuführen. Es erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie drucken möchten, siehe Screenshot:
4. Und dann klick OK, und Ihr ausgewählter Bereich wurde sofort ohne die leeren Zeilen gedruckt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!