Cómo imprimir páginas pares e impares en Excel 2007

Aunque Microsoft Excel 2007 ofrece una variedad de opciones de impresión en el menú de impresión en la barra de herramientas , que no le da la opción de imprimir las páginas pares o impares . Por suerte , hay una herramienta que se puede utilizar para imprimir páginas pares e impares : Visual Basic para Aplicaciones ( VBA) . VBA está integrado en Excel 2007 , y le permite personalizar Excel para satisfacer sus necesidades. Esto incluye la ejecución de macros (programas que realizan una tarea específica). Instrucciones
1

Haga clic en la pestaña " Developer " en Excel 2007 .

2 Haga clic en "Visual Basic " para abrir el Editor de Visual Basic (VBE ) .

3

clic en "Insertar " y luego " módulo " para abrir una ventana del módulo en blanco
4

Copia y pega el siguiente código en la ventana del módulo : .

Sub PrintOddEven ()

TotalPages Dim As Long

StartPage Dim As Long Dim

Página As Integer

StartPage = InputBox ( "Enter número de página inicial ")

TotalPages = Application.ExecuteExcel4Macro ( " GET.DOCUMENT ( 50 ) ")

Si StartPage > 0 Y StartPage < = TotalPages Entonces

Por Página = StartPage Para TotalPages Paso 2

ActiveSheet.PrintOut Desde: = Página , a: = Página , _

Copias: = 1 , Intercalar : = True

Siguiente

End If End Sub

5

Press "F5 " para ejecutar la macro. Aparecerá una ventana pop -up y se le devuelve a la hoja de cálculo Excel.
6

el número de página de inicio en el cuadro de texto . Si desea imprimir las páginas impares , introduzca un número impar. Si desea imprimir las páginas pares , introduzca un número par. Excel imprime las páginas pares o impares de ese punto de partida . Por ejemplo , si escribe " 1 ", Excel imprime las páginas impares del 1 al final del documento.