Hvordan udskrives alle ark undtagen et specifikt ark i Excel?
I Excel-arbejde kan udskrivning af ark være det almindelige daglige job for dig. Har du dog nogensinde forsøgt at udskrive alle ark, bortset fra et bestemt ark? For eksempel, en projektmappe her, vil du udskrive alle ark, men arket med navnet "Total", hvordan kan du hurtigt håndtere det?
Udskriv alle ark undtagen et med VBA
Udskriv bestemte sider, du har brug for, med Kutools til Excel
Udskriv alle ark undtagen et med VBA
Her er en VBA-kode, der kan udskrive alle ark undtagen et specifikt ark.
1. Aktiver den projektmappe, du vil udskrive arkene, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > module, indsæt koden under modulskriptet.
VBA: Udskriv ark undtagen et
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
Bemærk: I koden, I alt in Hvis xWs.Name <> "I alt" Derefter , MsgBox "Ark i alt er ikke blevet udskrevet" er det arknavn, du ikke vil udskrive, og A1: B15 in .PrintArea = "A1: B15" er det område, du vil udskrive for hvert ark. Du kan ændre dem efter behov.
3. Trykke F5 nøgle for at køre koden, og derefter vises en dialogboks, der minder dig om, at det specifikke ark ikke er blevet udskrevet. Se skærmbillede:
4. klik OK for at lukke dialogen.
Udskriv bestemte sider, du har brug for, med Kutools til Excel
Hvis du bare vil udskrive kun lige eller ulige sider eller specifikke sider på et ark, kan du ansøge Kutools til Excel's Udskriv bestemte sider værktøj, der hurtigt kan gøre dig en tjeneste.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor :(Gratis download Kutools til Excel nu!)
1. Aktivér det ark, hvor du vil udskrive bestemte sider, klik på Kutools Plus > Trykning > Udskriv bestemte sider. Se skærmbillede:
2. Derefter i Udskriv bestemte sider dialog, skal du kontrollere indstillingerne baseret på dit udskrivningsbehov. Se skærmbillede:
3. klik Print for at udskrive siderne.
Bedste kontorproduktivitetsværktøjer
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...
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!