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 območje tiskanja omogoča tiskanje več izbir hkrati, vendar bo vsak izbran obseg natisnjen na ločeni strani. Ta članek bo govoril o tem, kako natisniti več neprekinjenih izborov na eno stran.

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.

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, Kliknite 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 lahko odstrani obsege, ki jih ne potrebujete, glejte posnetek zaslona:

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:

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

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:

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.

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