Preskoči na glavno vsebino

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 pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

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 miške za vas!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
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 xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations