Hoppa till huvudinnehåll

Hur skriver jag ut flera val på en sida i Excel?

Om du har ett stort kalkylblad som innehåller mycket data och nu vill du skriva ut några utvalda områden som inte är kontinuerliga på en sida så att du kan spara mycket papper. Excel tillhandahåller Ställ in utskrift Arear funktion för oss att skriva ut flera val samtidigt, men varje utvalt område kommer att skrivas ut på en sida separat. Den här artikeln kommer att prata om hur man skriver ut flera icke-kontinuerliga val på en sida.

Skriv ut flera val från ett kalkylblad på en sida med VBA-kod

Skriv ut flera val från ett eller flera kalkylblad på en sida med Kutools för Excel


Skriv ut flera val från ett kalkylblad på en sida med VBA-kod

För att skriva ut flera utvalda icke-sammanhängande val av ett kalkylblad på en sida kan följande VBA-kod hjälpa dig, gör så här:

1. Tryck ctrl för att välja de områden som du vill skriva ut.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Skriv ut flera val till en sida

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. Tryck sedan på F5 för att köra den här koden och dina valda intervall skrivs ut på en gång och de kommer att skrivas ut på en enda sida.


Skriv ut flera val från ett eller flera kalkylblad på en sida med Kutools för Excel

Ovanstående kod kan bara hjälpa dig att skriva ut de valda intervallen från ett kalkylblad, om du vill att flera val från flera kalkylblad ska skrivas ut på en sida, fungerar inte koden ovan. Oroa dig inte, här kan jag presentera dig ett praktiskt verktyg - Kutools för Excel, med dess Skriv ut guiden för flera val verktyget kan du skriva ut valen från ett kalkylblad eller flera kalkylblad till en sida samtidigt.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

När du har installerat Kutools för Excel, gör med följande steg:

1. Klicka Kutools Plus > Utskrift > Skriv ut guiden för flera val, se skärmdump:

2. I Skriv ut guiden för flera val, Klickadoc lägg till knapp -knappen för att välja och lägga till det intervall som du vill skriva ut i listrutan Områden att skriva ut en efter en (du kan välja intervallen från ett kalkylblad eller flera kalkylblad), klicka doc ta bort knapp knappen kan ta bort de intervall du inte behöver, se skärmdump:

doc skriva ut flera val 2

3. När du har lagt till markeringarna i listrutan klickar du på Nästa >> för att gå till steg 2 i guiden, ange utskriftsinställningarna efter behov, och du kan lägga till en tom rad mellan de valda intervallen med kryss Lägg till en tom rad mellan intervallen alternativ, se skärmdump:

doc skriva ut flera val 3

4. Fortsätt sedan med att klicka Nästa >> butoon, i steg 3 i guiden, specificera åtgärden för det tillfälliga kalkylbladet, du kan aktivera kalkylbladet men inte skriva ut, skriva ut kalkylarket och behålla det eller skriva ut kalkylbladet och ta bort det. Se skärmdump:

doc skriva ut flera val 4

5. Klicka Finish -knappen har alla valda intervall klistrats in i ett nytt kalkylblad som länkade bildobjekt. Och du kan dra och ordna dem i kalkylbladet. Se skärmdump:

doc skriva ut flera val 5

6. När du skriver ut det här nya kalkylbladet skrivs intervallen ut på en enda sida efter behov.

Klicka för att läsa mer om det här verktyget Skriv ut flera val.

Ladda ner och testa gratis Kutools för Excel nu!


Demo: Skriv ut flera val från ett eller flera kalkylblad på en sida med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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