Jak tisknout liché nebo sudé stránky pouze v aplikaci Excel?

Jak všichni víme, můžeme liché nebo sudé stránky tisknout pouze v aplikaci Word 2013 v sekci Tisk, jak je ukázáno níže. Ve funkci Excel Print však není možnost tisku lichých nebo sudých stránek. Ale tady můžu představit kód, který může tisknout pouze liché nebo sudé stránky v aplikaci Excel, jak potřebujete.

Tisk lichých nebo sudých stránek pouze s kódem makra
S Kutools pro Excel můžete tisknout liché nebo dokonce i konkrétní stránky, jak chcete

Tisk lichých nebo sudých stránek pouze s kódem makra

1. Povolte list, na který chcete tisknout jeho liché nebo sudé stránky, a stiskněte Alt + F11 klávesy pro otevření Microsoft Visual Basic pro aplikacis oknem.

2. cvaknutí Vložit > module a vložte níže uvedený kód do skriptu modulu. Viz snímek obrazovky:

VBA: Tiskněte pouze liché nebo sudé stránky

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. lis F5 pro spuštění kódu a zobrazí se dialogové okno pro výběr tisku lichých nebo sudých stránek, zadejte 1 tisk lichých stránek, 2 pro sudé stránky. Viz snímek obrazovky:

4. cvaknutí OK, a objeví se další dialogové okno, abyste se ujistili, zda chcete tisknout. Viz snímek obrazovky:

5. cvaknutí Ano pokračovat v tisku. A potom se vytisknou pouze liché stránky nebo sudé stránky aktivního listu.

S Kutools pro Excel můžete tisknout liché nebo dokonce i konkrétní stránky, jak chcete

Pokud máte Kutools pro Excel, můžete nejen tisknout sudé nebo liché stránky najednou, ale také můžete tisknout libovolné stránky podle potřeby tak rychle, jak můžete.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

klikněte Kutools Plus > Tisk > Tisk specifikovaných stránek k povolení Tisk specifikovaných stránek dialogové okno a zkontrolujte možnosti, které potřebujete použít pro tisk.

Tip:

1. Chcete-li vytisknout vlastní rozsah stránek, jako je stránka 1,3,5 a stránka 9 až 12, je třeba pouze zkontrolovat Vlastní rozsah možnost a zadejte takto:

2. Můžete také nastavit kopie tisku.

3. Pokud chcete tisknout stránky v obráceném pořadí, zkontrolujte Tiskněte v opačném pořadí.

  Demonstrace