Hur skriver jag ut alla ark utom ett specifikt ark i Excel?
I Excel kan utskrift av ark vara det allmänna dagliga jobbet för dig. Men har du någonsin försökt skriva ut alla ark utom ett specifikt ark? Till exempel, en arbetsbok här, du vill skriva ut alla ark men arket som heter "Totalt", hur kan du snabbt hantera det?
Skriv ut alla ark utom ett med VBA
Skriv ut vissa sidor du behöver med Kutools för Excel
Skriv ut alla ark utom ett med VBA
Här är en VBA-kod som kan skriva ut alla ark utom ett specifikt ark.
1. Aktivera den arbetsbok du vill skriva ut arken och tryck på Alt + F11-knapparna för att öppna Microsoft Visual Basic för applikationer fönster.
2. klick Insert > module, klistra in nedanstående kod i modulskriptet.
VBA: Skriv ut ark utom ett
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
Notera: I koden är Totalt in Om xWs.Name <> "Totalt" Då och MsgBox "Settotal har inte skrivits ut" är det arknamn du inte vill skriva ut, och A1: B15 in .PrintArea = "A1:B15" är intervallet du vill skriva ut av varje ark. Du kan ändra dem efter behov.
3. Tryck F5 för att köra koden, och sedan visas en dialogruta för att påminna dig om att det specifika arket inte har skrivits ut. Se skärmdump:
4. klick OK för att stänga dialogen.
Skriv ut vissa sidor du behöver med Kutools för Excel
Om du bara vill skriva ut jämna eller udda sidor, eller specifika sidor av ett ark, kan du ansöka Kutools för ExcelÄr Skriv ut specifika sidor verktyg som snabbt kan göra dig en tjänst.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
När du har installerat Kutools för Excel, gör så här :(Gratis nedladdning Kutools för Excel nu!)
1. Aktivera det ark där du vill skriva ut vissa sidor, klicka Kutools Plus > Utskrift > Skriv ut specifika sidor. Se skärmdump:
2. Sedan i Skriv ut specifika sidor dialogrutan, kontrollera alternativen baserat på ditt utskriftsbehov. Se skärmdump:
3. klick Skriva ut för att skriva ut sidorna.
Bästa kontorsproduktivitetsverktyg
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...
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!