Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zaustaviti prazne vrstice pri tiskanju delovnega lista?

Če je na vašem delovnem listu več praznih vrstic, se ob tiskanju lista praviloma natisne tudi prazne vrstice. Če želite natisniti delovni list, ki ne upošteva praznih vrstic, lahko shranite dokumente za nas, v tem primeru, kako bi lahko zaprli prazne vrstice pri tiskanju delovnega lista?

Ostanite prazne vrstice pri tiskanju delovnega lista s kodo VBA

Ostanite prazne vrstice pri tiskanju delovnega lista s črtanjem praznih vrstic hkrati


puščica modra desno mehurček Ostanite prazne vrstice pri tiskanju delovnega lista s kodo VBA


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

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: zaustavi prazne vrstice pri tiskanju:

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. Nato pritisnite F5 ključ za zagon te kode in se bo oglasno polje odprlo, da vas opomni, da izberete obseg podatkov, ki ga želite natisniti, glejte sliko zaslona:

doc natisni brez praznih vrstic 3

4. In nato kliknite OK, izbrano območje pa je bilo natisnjeno hkrati brez praznih vrstic.


puščica modra desno mehurček Ostanite prazne vrstice pri tiskanju delovnega lista s črtanjem praznih vrstic hkrati

Če so prazne vrstice neuporabne za vas, lahko najprej izbrišete vse prazne vrstice in nato natisnete delovni list, kolikor potrebujete. S Kutools za ExcelJe Izbriši prazne vrstice funkcijo, lahko hitro izbrišete prazne vrstice v izboru, delovnem listu ali delovnem zvezku, kot jo potrebujete.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Izberite obseg podatkov, v katerega želite izbrisati prazne vrstice, in kliknite Kutools > Brisanje > Izbriši prazne vrstice > V izbranem območju, si oglejte sliko zaslona:

doc natisni brez praznih vrstic 1

2. In se bo pojavilo hitro okno, ki vas opomni, koliko praznih vrstic je izbrisanih v izboru.

doc natisni brez praznih vrstic 2

3. Po brisanju praznih vrstic lahko natisnete delovni list.

Kliknite Free Download Kutools za Excel zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.