Hvordan udskrives kun ulige eller lige sider i Excel?

Som vi alle vidste, kan vi kun udskrive ulige eller lige sider i Word 2013 i afsnittet Udskriv som vist nedenstående skærmbillede. Der er dog ingen mulighed i Excel-udskrivningsfunktionen til at udskrive ulige eller lige sider. Men her kan jeg introducere en kode, der kun kan udskrive ulige eller lige sider i Excel, som du har brug for.

Udskriv kun ulige eller lige sider med makro-kode
Udskriv ulige eller lige eller specifikke sider, som du vil med Kutools til Excel

Udskriv kun ulige eller lige sider med makro-kode

1. Aktiver det ark, du vil udskrive dets ulige eller lige sider, og tryk på Alt + F11 nøgler til at åbne Microsoft Visual Basic til anvendelses vindue.

2. klik indsatte > module, og indsæt nedenstående kode i modulskriptet. Se skærmbillede:

VBA: Udskriv kun ulige eller lige sider

Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
  For xPage = Int(xStartPage) To xTotalPages Step 2
    ActiveSheet.PrintOut from:=xPage, To:=xPage
  Next
Else
  Exit Sub
End If
Application.ScreenUpdating = True
End Sub

3. Trykke F5 for at køre koden, og der vises en dialogboks, hvor du kan vælge at udskrive ulige eller lige sider, indtast 1 at udskrive ulige sider, 2 til lige sider. Se skærmbillede:

4. klik OK, og der vises en anden dialog for at sikre dig, om du vil udskrive. Se skærmbillede:

5. klik Ja at fortsætte udskrivningen. Og så udskrives kun ulige sider eller lige sider af det aktive ark.

Udskriv ulige eller lige eller specifikke sider, som du vil med Kutools til Excel

Hvis du har Kutools til Excel, kan du ikke kun udskrive lige eller ulige sider på én gang, du kan også udskrive alle sider, som du har brug for, så hurtigt som muligt.

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

Klik Kutools Plus > Trykning > Udskriv bestemte sider at aktivere Udskriv bestemte sider dialog og kontrollere indstillingerne, som du har brug for til udskrivning.

Tip:

1. Hvis du vil udskrive brugerdefineret sideinterval, som side 1,3,5 og side 9 til 12, skal du kun kontrollere Brugerdefineret rækkevidde mulighed og skriv sådan:

2. Du kan også indstille kopierne af udskrivningen.

3. Hvis du vil udskrive sider i omvendt rækkefølge, skal du kontrollere Udskriv i omvendt rækkefølge.

  Demo