Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

imprimir hojas impares

437 views
Skip to first unread message

Cisneros@discussions.microsoft.com Francisco Cisneros

unread,
Jun 21, 2005, 8:05:01 PM6/21/05
to
deseo imprimir un catálogo en Excel, y necesito imprimir primero las hojas
impares para luego dar vuelta a las hojas e imprimir las hojas pares,
quisiera saber cómo se hace.

Gracias

alberto

unread,
Jun 21, 2005, 8:20:02 PM6/21/05
to
Francisco:
una opcion es marcar la pestaña de hojas impares ctrl y raton y mandas a
imprimir
todas, hojas acticvas, despues marcas las hojas impares

"Francisco Cisneros" escribió:

alberto

unread,
Jun 21, 2005, 8:23:03 PM6/21/05
to
perdon., despues las pares y realizas mismo procedimiento

"alberto" escribió:

Francisco

unread,
Jun 21, 2005, 8:33:03 PM6/21/05
to
Alberto gracias por tu sugerencia, a lo que yo me refiero es a imprimir las
páginas de una sola hoja, es decir en una sola hoja de cálculo tengo 300
páginas para imprimir de las que necesito imprimir primero las impares y
luego las pares.

Muchas gracias.

"alberto" escribió:

Juan

unread,
Jun 22, 2005, 2:59:39 AM6/22/05
to
Hola Francisco

prueba el siguiente código y me cuentas.

un saludo.

'Para las paginas impares

Sub ImprimirImpares()
Dim PaginasTotales As Long, p As Long
PaginasTotales = (ActiveSheet.HPageBreaks.Count + 1) *
(ActiveSheet.VPageBreaks.Count + 1)
For p = 1 To PaginasTotales Step 2
ActiveSheet.PrintOut p, p
Debug.Print "Imprimiendo pagina " & p & " of " & PaginasTotales
Next p
End Sub

'Para las paginas pares

Sub ImprimirPares()
Dim PaginasTotales As Long, p As Long
PaginasTotales = (ActiveSheet.HPageBreaks.Count + 1) *
(ActiveSheet.VPageBreaks.Count + 1)
For p = 2 To PaginasTotales Step 2
ActiveSheet.PrintOut p, p
Debug.Print "Imprimiendo pagina " & p & " de " & PaginasTotales
Next p
End Sub


0 new messages