Hoe kan ik oneven of even pagina's alleen in Excel afdrukken?
Druk alleen oneven of even pagina's af met macrocode
Druk oneven of zelfs of specifieke pagina's af zoals u wilt met Kutools voor Excel
Druk alleen oneven of even pagina's af met macrocode
1. Schakel het blad in waarvan u de oneven of even pagina's wilt afdrukken en druk op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassings venster.
2. klikken Invoegen > modulee, en plak onderstaande code in het modulescript. Zie screenshot:
VBA: druk alleen oneven of even pagina's af
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. druk op F5 toets om de code uit te voeren, en een dialoogvenster verschijnt waarin u kunt kiezen om oneven of even pagina's af te drukken, voer in 1 om oneven pagina's af te drukken, 2 voor even pagina's. Zie screenshot:
4. klikken OK, en een ander dialoogvenster verschijnt om er zeker van te zijn dat u wilt afdrukken. Zie screenshot:
5. klikken Ja om door te gaan met afdrukken. En dan worden alleen oneven pagina's of even pagina's van het actieve vel afgedrukt.
Druk oneven of zelfs of specifieke pagina's af zoals u wilt met Kutools voor Excel
Als je Kutools for Excel hebt, kun je niet alleen even of oneven pagina's tegelijk afdrukken, maar je kunt ook alle pagina's zo snel mogelijk afdrukken als je nodig hebt.
Na gratis installeren Kutools voor Excel, doe het als volgt:
Klik Koetools Plus > Print > Druk gespecificeerde pagina's af om de Druk gespecificeerde pagina's af dialoogvenster en vink de opties aan die u nodig hebt om af te drukken.
Tip:
1. Als u een aangepast paginabereik wilt afdrukken, zoals pagina 1,3,5 en pagina 9 tot 12, hoeft u dit alleen maar te controleren Aangepast bereik optie en typ als volgt:
2. U kunt ook de kopieën van de afdruk instellen.
3. Als u pagina's in omgekeerde volgorde wilt afdrukken, vink dan aan Afdrukken in omgekeerde volgorde.
Demo
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!