¿Cómo imprimir páginas pares o impares solo en Excel?
Imprima páginas pares o impares solo con código macro
Imprima páginas impares o pares o específicas como desee con Kutools para Excel
Imprima páginas pares o impares solo con código macro
1. Habilite la hoja en la que desea imprimir sus páginas pares o impares y presione Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicacioness ventana.
2. Hacer clic en recuadro > móduloe, y pegue el código siguiente en el script del módulo. Ver captura de pantalla:
VBA: imprime solo páginas pares o impares
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. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para que elija imprimir páginas pares o impares, ingrese 1 para imprimir páginas impares, 2 para páginas pares. Ver captura de pantalla:
4. Hacer clic en OK, y aparece otro cuadro de diálogo para asegurarse de que desea imprimir. Ver captura de pantalla:
5. Hacer clic en Sí para seguir imprimiendo. Y luego solo se imprimen páginas impares o páginas pares de la hoja activa.
Imprima páginas impares o pares o específicas como desee con Kutools para Excel
Si tiene Kutools para Excel, no solo puede imprimir páginas pares o impares a la vez, sino que también puede imprimir cualquier página que necesite lo más rápido posible.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después instalación gratuita Kutools para Excel, haga lo siguiente:
Haga clic Kutools Más > Impresión > Imprimir páginas especificadas para habilitar el Imprimir páginas especificadas cuadro de diálogo y verifique las opciones que necesite utilizar para imprimir.
Consejo:
1. Si desea imprimir un rango de páginas personalizado, como la página 1,3,5, 9, 12 y la página XNUMX a XNUMX, solo necesita verificar Rango personalizado opción y escriba así:
2. También puede configurar las copias de la impresión.
3. Si desea imprimir páginas en orden inverso, marque Imprimir en orden inverso.
De demostración
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!