Gå til hovedindhold

Hvordan udskrives flere valg på en side i Excel?

Hvis du har et stort regneark, der indeholder mange data, og nu vil du udskrive nogle valgte områder, der ikke er kontinuerlige på en side, så du kan spare meget papir. Excel leverer Indstil Print Arear funktion for os til at udskrive flere valg på én gang, men hver valgte række udskrives på en side separat. Denne artikel vil tale om, hvordan man udskriver flere ikke-kontinuerlige valg på en side.

Udskriv flere valg fra et regneark på en side med VBA-kode

Udskriv flere valg fra et eller flere regneark på en side med Kutools til Excel


Udskriv flere valg fra et regneark på en side med VBA-kode

For at udskrive flere valgte ikke-sammenhængende valg af et regneark på en side, kan følgende VBA-kode hjælpe dig, gør som følger:

1. Trykke Ctrl for at vælge de områder, du vil udskrive.

2. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Udskriv flere valg på en side

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. Tryk derefter på F5 for at køre denne kode, og dine valgte intervaller udskrives på én gang, og de udskrives på en enkelt side.


Udskriv flere valg fra et eller flere regneark på en side med Kutools til Excel

Ovenstående kode kan kun hjælpe dig med at udskrive de valgte intervaller fra et regneark. Hvis du vil have flere valg fra flere regneark, der skal udskrives på en side, fungerer ovenstående kode ikke. Vær ikke bekymret, her kan jeg introducere dig et praktisk værktøj - Kutools til Excel, Med Guiden til udskrivning af flere valg værktøj, kan du udskrive valgene fra et regneark eller flere regneark til en side på én gang.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage

Efter installation Kutools til Excelskal du gøre med følgende trin:

1. Klik Kutools Plus > Trykning > Guiden til udskrivning af flere valg, se skærmbillede:

2. I Guiden til udskrivning af flere valgklikknap til doc-tilføjelse knap for at vælge og tilføje det interval, som du vil udskrive, i listeboksen Områder til udskrivning en efter en (du kan vælge intervallerne fra et regneark eller flere regneark), klik knap til fjernelse af doc knappen kan fjerne de områder, du ikke har brug for, se skærmbillede:

doc udskriv flere valg 2

3. Når du har tilføjet valgene i listeboksen, skal du klikke på Næste >> knap for at gå til trin 2 i guiden, angiv udskriftsindstillingerne efter behov, og du kan tilføje en tom række mellem de valgte intervaller ved at markere Tilføj en tom række mellem intervaller mulighed, se skærmbillede:

doc udskriv flere valg 3

4. Fortsæt derefter med at klikke Næste >> butoon, i trin 3 i guiden skal du angive handlingen for det midlertidige regneark, du kan aktivere regnearket, men ikke udskrive, udskrive regnearket og beholde det eller udskrive regnearket og slette det. Se skærmbillede:

doc udskriv flere valg 4

5. Klik Finish knappen, er alle de valgte områder indsat i et nyt regneark som et sammenkædet billedobjekt. Og du kan trække og omarrangere dem i regnearket. Se skærmbillede:

doc udskriv flere valg 5

6. Når du udskriver dette nye regneark, udskrives intervallerne på en enkelt side efter behov.

Klik for at få mere at vide om dette hjælpeprogram til guiden Udskriv flere valg.

Download og gratis prøveversion Kutools til Excel nu!


Demo: Udskriv flere valg fra et eller flere regneark på en side med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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