Imprimir páginas impares

hola !

... imprimir solo las paginas impares, en word es facil ... te deja elegir rangos
... en excel no lo encontramos ¿alguien sabe como hacerlo?

en word es 'facil' debido a que el texto se 'auto-ajusta' al tamaño de la pagina ;)
en excel... la razon por la que NO es 'tan sencillo' es...
si suponemos un reporte tipo 'sabana' [de varias paginas hacia la derecha Y hacia abajo]...
la numeracion [y donde 'caigan' pares/impares] ->siempre dependera<- de...
las opciones de configuracion para impresion de cada hoja/libro y 'a voluntad' del usuario :((
[archivo / configurar pagina... / [pestaña] hoja / [seccion] orden de las paginas -> abajo/derecha]
si ya tienes 'controlada esa parte'... pudieras imprimir 'cada dos paginas' con una macro +/- asi...
en un modulo de codigo 'nornal' ==Sub ImprimirParesImpares()
Dim Par As Integer, Impar As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Par = 2 To Paginas Step 2
.PrintOut From:=Par, To:=Par
Next ' se acaban de imprimir las paginas 'pares' :))
For Impar = 1 To Paginas Step 2
.PrintOut From:=Impar, To:=Impar
Next ' se acaban de imprimir las paginas 'impares' :))
End With
End Sub

saludos,
hector.

Hola, muchas gracias Hector, se lo he comentado al progrmador de la ofi y me
ha lo ha dividido para poder imprimir solo las pares o solo las impares:

Sub ImprimirPares()
Dim Par As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Par = 2 To Paginas Step 2
.PrintOut From:=Par, To:=Par
Next
End With
End Sub


Sub ImprimirImpares()
Dim Impar As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")

With ActiveSheet
For Impar = 1 To Paginas Step 2
.PrintOut From:=Impar, To:=Impar
Next
End With
End Sub

De nuevo MUCHISIMAS GRACIAS.
"Héctor Miguel" escribió en el mensaje
news:

hola !

> ... imprimir solo las paginas impares, en word es facil ... te deja

elegir rangos

> ... en excel no lo encontramos ¿alguien sabe como hacerlo?

en word es 'facil' debido a que el texto se 'auto-ajusta' al tamaño de la

pagina ;)

en excel... la razon por la que NO es 'tan sencillo' es...
si suponemos un reporte tipo 'sabana' [de varias paginas hacia la derecha

Y hacia abajo]...

la numeracion [y donde 'caigan' pares/impares] ->siempre dependera<- de...
las opciones de configuracion para impresion de cada hoja/libro y 'a

voluntad' del usuario :((

[archivo / configurar pagina... / [pestaña] hoja / [seccion] orden de las

paginas -> abajo/derecha]

si ya tienes 'controlada esa parte'... pudieras imprimir 'cada dos

paginas' con una macro +/- asi...

en un modulo de codigo 'nornal' ==> Sub ImprimirParesImpares()
Dim Par As Integer, Impar As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Par = 2 To Paginas Step 2
.PrintOut From:=Par, To:=Par
Next ' se acaban de imprimir las paginas 'pares' :))
For Impar = 1 To Paginas Step 2
.PrintOut From:=Impar, To:=Impar
Next ' se acaban de imprimir las paginas 'impares' :))
End With
End Sub

saludos,
hector.