Hur rensar man utskriftsområdet genom flera ark samtidigt i Excel?

I vissa fall kan vi ställa in ett utskriftsområde i ett kalkylblad för utskrift, men om det finns flera ark med olika utskriftsområden, hur kan jag rensa alla utskriftsområden genom flera ark samtidigt i Excel? Att radera en efter en manuellt är ett långsamt sätt. Finns det något snabbt sätt?

Rensa utskriftsområdet genom hela arbetsboken med VBA

Rensa utskriftsområdet genom flera ark med Copy Page Setup

Rensa utskriftsområdet genom hela arbetsboken med VBA

Här är en makrokod som kan rensa alla utskriftsområden genom hela arbetsboken.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. I Projekt - VBAProject dubbelklicka Denna arbetsbok och kopiera nedanför VBA och klistra in dem i rätt tomt skript. Se skärmdump:

VBA: Rensa hela arbetsboken för utskriftsområdet

Sub ClearPrintArea()
'UpdatebyExtendoffice20171229
    Dim xSheet As Worksheet
    For Each xSheet In Worksheets
        xSheet.PageSetup.PrintArea = ""
    Next
End Sub

3. Tryck F5 för att köra koden, så har alla utskriftsområden i arbetsboken tagits bort.

Rensa utskriftsområdet genom flera ark med Copy Page Setup

Om du har Kutools för Excel, kan dess Copy Page Setup-verktyg också göra dig en tjänst för att rensa flera utskriftsområden genom ark.

1. Välj ett ark, till exempel arkets slumpmässiga lösenord, och klicka sedan Sidan Layout > Utskriftsområde > Rensa utskriftsområdet. Se skärmdump:

2. Klicka sedan Kutools Plus > Utskrift > Kopiera sidinställningar.

3. Sedan i Kopiera sidinställningar dialog,
i Kopia till sektion, alla ark utom det aktuella arket listas, kontrollera arken du vill rensa utskriftsområdet från;
gå sedan till Montering avsnitt, under Sheet listan, kontrollera Utskriftsområde endast alternativ. Se skärmdump:

4. klick Ok. Nu tas utskriftsområdena bort från de valda arken.

  demo