Come stampare pagine pari o dispari solo in Excel?
Stampa pagine pari o dispari solo con codice Macro
Stampa pagine dispari o pari o specifiche come desideri con Kutools per Excel
Stampa pagine pari o dispari solo con codice Macro
1. Abilitare il foglio su cui si desidera stampare le pagine pari o dispari e premere Alt + F11 chiavi per aprire il Microsoft Visual Basic per l'applicazionefinestra s.
2. Clic inserire > Module e incolla il codice sottostante nello script del modulo. Vedi screenshot:
VBA: stampa solo pagine pari o dispari
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. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo in cui scegliere di stampare pagine pari o dispari, immettere 1 per stampare pagine dispari, 2 per pagine pari. Vedi screenshot:
4. Clic OKe viene visualizzata un'altra finestra di dialogo per assicurarti di voler stampare. Vedi screenshot:
5. Clic Si per continuare a stampare. Quindi vengono stampate solo le pagine dispari o pari del foglio attivo.
Stampa pagine dispari o pari o specifiche come desideri con Kutools per Excel
Se disponi di Kutools per Excel, non solo puoi stampare pagine pari o dispari contemporaneamente, ma puoi anche stampare qualsiasi pagina di cui hai bisogno il più velocemente possibile.
Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:
Clicchi Kutools Plus > Stampa > Stampa pagine specificate per abilitare il Stampa pagine specificate finestra di dialogo e controllare le opzioni che è necessario utilizzare per la stampa.
Suggerimento:
1. Se si desidera stampare un intervallo di pagine personalizzato, come le pagine 1,3,5 e le pagine da 9 a 12, è sufficiente controllare Gamma personalizzata opzione e digita in questo modo:
2. È inoltre possibile impostare le copie della stampa.
3. Se si desidera stampare le pagine in ordine inverso, selezionare Stampa in ordine inverso.
Demo: stampa pagine dispari o pari o specifiche come desideri con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!