Kako ustaviti prazne vrstice pri tiskanju delovnega lista?

Če je na vašem delovnem listu več praznih vrstic, se običajno med tiskanjem lista natisnejo tudi prazne vrstice. Če želite natisniti delovni list, če ignorirate prazne vrstice, nam lahko prihranite papir. Kako lahko v tem primeru ustavite prazne vrstice pri tiskanju delovnega lista?

Ustavite prazne vrstice pri tiskanju delovnega lista s kodo VBA

Ustavite prazne vrstice pri tiskanju delovnega lista s kodo VBA

Z naslednjo kodo VBA lahko delovni list natisnete brez praznih vrstic, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Ustavi prazne vrstice pri tiskanju:

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete obseg podatkov, ki ga želite natisniti, glejte posnetek zaslona:

4. In nato kliknite OKin izbrani obseg je bil natisnjen naenkrat brez praznih vrstic.