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 natisniti več izbir na eni strani v Excelu?

Če imate velik delovni list, ki vsebuje veliko podatkov, zdaj pa želite natisniti nekaj izbranih obsegov, ki so na eni strani neprekinjeni, tako da lahko prihranite veliko papirja. Excel ponuja Nastavi Print Arear funkcijo, da natisnemo več izbir hkrati, vendar bodo izbrani obsegi natisnjeni na eno stran posebej. Ta članek bo govoril o tem, kako natisniti več neprekinjenih izbir na eni strani.

Natisnite več izbir z enega delovnega lista na eni strani s kodo VBA

Natisnite več izbir z ene ali več delovnih listov na eni strani z orodji Kutools for Excel


Natisnite več izbir z enega delovnega lista na eni strani s kodo VBA


Če želite natisniti več izbranih neskončnih izbir na enem delovnem listu na eni strani, vam lahko pomaga naslednja koda VBA, naredite naslednje:

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

2. Drži dol ALT + F11 tipke in odpre Microsoft Visual Basic za aplikacije okno.

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

VBA koda: natisnite več izbir na eno stran

Sub PrintOutRange()
'Update 20150528
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 ključ za zagon te kode in izbrani obsegi bodo natisnjeni hkrati in natisnjeni na eno stran.


Natisnite več izbir z ene ali več delovnih listov na eni strani z orodji Kutools for Excel

Zgornja koda vam lahko pomaga le, da natisnete izbrane obsege z enega delovnega lista, če želite, da se več izbir iz več delovnih listov natisne na eno stran, zgoraj navedena koda ne bo delovala. Prosim, ne skrbite, tukaj vam lahko predstavim priročno orodje - Kutools za Excel, Z njegovim Natisni več izbirnih čarovnikov uporabnost, lahko izberete iz enega delovnega lista ali več delovnih listov na eno stran hkrati.

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. Kliknite Podjetje > Tiskanje > Natisni več izbirnih čarovnikov, si oglejte sliko zaslona:

doc natisni več izbir 1

2. v Natisni več izbirnih čarovnikov, Kliknitegumb za dodajanje dokumentov gumb, da izberete in dodate obseg, ki ga želite natisniti, v polje za obseg tiskanja enega za drugim (lahko izberete obsege z enega delovnega lista ali več delovnih listov), ​​kliknite doc odstranite gumb gumb lahko odstrani obsege, ki jih ne potrebujete, glejte sliko zaslona:

doc natisni več izbir 2

3. Ko dodate izbire v polje s seznamom, kliknite Naslednja >> gumb, da odprete korak 2 čarovnika, določite nastavitve tiskanja po potrebi in lahko med izbrane obsege dodate prazno vrstico s čekom Dodajte prazno vrstico med obsegi možnost, si oglejte posnetek zaslona:

doc natisni več izbir 3

4. Potem nadaljujte s klikom Naslednja >> butoon, v koraku 3 čarovnika določite dejanje za začasni delovni list, lahko aktivirate delovni list, vendar ne natisnete, tiskate delovnega lista in ga hranite ali natisnete ter izbrišete. Prikaz slike:

doc natisni več izbir 4

5. Kliknite Konec gumb, so bili vsi izbrani obsegi prilepeni v nov delovni list kot povezani predmeti slikovnih predmetov. In jih lahko povlečete in prerazporedite v delovnem listu. Prikaz slike:

doc natisni več izbir 5

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

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

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Demo: natisnite več izbir z ene ali več delovnih listov na eni strani z orodji Kutools for Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite 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.
  • To post as a guest, your comment is unpublished.
    ok · 1 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 · 3 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)