Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako natisniti več izbir na eno stran v Excelu?

Če imate velik delovni list, ki vsebuje veliko podatkov, in zdaj želite na eno stran natisniti nekaj izbranih obsegov, ki niso neprekinjeni, da lahko prihranite veliko papirja. Excel ponuja Nastavite Print Arear funkcija za tiskanje več izbir hkrati, vendar bodo vsi izbrani obsegi natisnjeni na eno stran posebej. Ta članek govori o tem, kako na eno stran natisniti več nepretrganih izbir.

Natisnite več izbir z enega delovnega lista na eno stran s kodo VBA

Natisnite več izbir iz enega ali več delovnih listov na eno stran s programom Kutools za Excel


Natisnite več izbir z enega delovnega lista na eno stran s kodo VBA

Če želite na eno stran natisniti več izbranih neskončnih izborov enega delovnega lista, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:

1. Pritisnite Ctrl tipko, da izberete obsege, ki jih želite natisniti.

2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

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

Koda VBA: Natisnite več izbir na eno stran

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Nato pritisnite F5 tipko za zagon te kode in izbrani obsegi bodo natisnjeni naenkrat in natisnjeni na eni strani.


Natisnite več izbir iz enega ali več delovnih listov na eno stran s programom Kutools za Excel

Zgornja koda vam lahko pomaga samo pri tiskanju izbranih obsegov z enega delovnega lista. Če želite, da se več izbirnih listov iz več delovnih listov natisne na eno stran, zgornja koda ne bo delovala. Ne skrbite, tukaj vam lahko predstavim priročno orodje - Kutools za Excel, Z njegovim Natisni čarovnik za večkratno izbiro pripomoček, lahko izpise iz enega ali več delovnih listov natisnete na eno stran hkrati.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus > Tiskanje > Natisni čarovnik za večkratno izbiro, glej posnetek zaslona:

2. v Natisni čarovnik za večkratno izbiro, Kliknitegumb za dodajanje dokumenta gumb, da izberete in dodate obseg, ki ga želite natisniti, v polje s seznamom Obsegi za tiskanje, enega za drugim (obsege lahko izberete na enem ali več delovnih listih), kliknite gumb za odstranjevanje dokumenta gumb lahko odstrani obsege, ki jih ne potrebujete, glejte posnetek zaslona:

doc natisni več izbir 2

3. Ko dodate izbire v polje s seznamom, kliknite Naprej >> za prehod na 2. korak čarovnika, določite nastavitve tiskanja, kot jih potrebujete, in lahko med izbranimi obsegi dodate prazno vrstico tako, da potrdite Med obsege dodajte prazno vrstico možnost, glej posnetek zaslona:

doc natisni več izbir 3

4. Nato nadaljujte s klikom Naprej >> butoon, v 3. koraku čarovnika določite dejanje za začasni delovni list, delovni list lahko aktivirate, vendar ga ne tiskate, natisnete in obdržite ali pa natisnete in izbrišete. Oglejte si posnetek zaslona:

doc natisni več izbir 4

5. Kliknite Konec , so vsi izbrani obsegi prilepljeni v nov delovni list kot povezani slikovni predmeti. Lahko pa jih povlečete in preuredite na delovnem listu. Oglejte si posnetek zaslona:

doc natisni več izbir 5

6. Ko natisnete ta novi delovni list, bodo obsegi natisnjeni na eno samo stran, kot potrebujete.

Kliknite, če želite izvedeti več o tem pripomočku Print Multiple Selection Wizard.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: s Kutools za Excel natisnite več izbir iz enega ali več delovnih listov na eno stran

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 3 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 4 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)