Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie man leere Reihen stoppt, wenn er Arbeitsblatt druckt?

Wenn in Ihrem Arbeitsblatt mehrere leere Zeilen vorhanden sind, werden normalerweise beim Drucken des Arbeitsblatts die leeren Zeilen ebenfalls gedruckt. Wenn Sie das Arbeitsblatt drucken und die leeren Zeilen ignorieren, können Sie für uns Papier sparen. In diesem Fall könnten Sie leere Zeilen beim Drucken eines Arbeitsblatts anhalten.

Stoppen Sie leere Zeilen, wenn Sie Arbeitsblätter mit VBA-Code drucken

Stoppen Sie beim Drucken des Arbeitsblatts leere Zeilen, indem Sie die leeren Zeilen gleichzeitig löschen


Pfeil blaue rechte Blase Stoppen Sie leere Zeilen, wenn Sie Arbeitsblätter mit VBA-Code drucken


Mit dem folgenden VBA-Code können Sie das Arbeitsblatt ohne leere Zeilen drucken:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Leere Zeilen beim Drucken anhalten:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
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 Taste, um diesen Code auszuführen, und eine Aufforderung erscheint, um Sie daran zu erinnern, den Datenbereich auszuwählen, den Sie drucken möchten, siehe Screenshot:

Doc-Druck ohne leere Zeilen 3

4. Und dann klick OK, und Ihr ausgewählter Bereich wurde sofort ohne die leeren Zeilen gedruckt.


Pfeil blaue rechte Blase Stoppen Sie beim Drucken des Arbeitsblatts leere Zeilen, indem Sie die leeren Zeilen gleichzeitig löschen

Wenn die leeren Zeilen für Sie nutzlos sind, können Sie zunächst alle leeren Zeilen löschen und dann das Arbeitsblatt nach Bedarf ausdrucken. Mit Kutools for Excel Leere Zeilen löschen können Sie die leeren Zeilen in einer Auswahl, einem Arbeitsblatt oder einer Arbeitsmappe schnell löschen.

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Excel, mach bitte wie folgt:

1. Wählen Sie den Datenbereich aus, in dem Sie die leeren Zeilen löschen möchten, und klicken Sie dann auf Kutoolen > Löschen > Leere Zeilen löschen > Im ausgewählten Bereich, siehe Screenshot:

Doc-Druck ohne leere Zeilen 1

2. Und eine Eingabeaufforderung wird angezeigt, um Sie daran zu erinnern, wie viele leere Zeilen in einer Auswahl gelöscht wurden.

Doc-Druck ohne leere Zeilen 2

3. Nachdem Sie die leeren Zeilen gelöscht haben, können Sie das Arbeitsblatt drucken.

Klicken Sie auf Kostenloser Download Kutools for Excel Now!



Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.