Invertir impresion en excel

[Adrian]

Hola a Todos !!!
Lo que quiero hacer desde el excel es que las hojas se impriman en sentido
inverso.. es decir, primero la hoja 10 y por ultimo la hoja 1. Esto no es un
capricho sino que tengo que imprimir en hojas Prenumeradas y no son en
realidad 10 hojas sino miles... y la forma en que toma las hojas la
impresora indica que tendria que invertir el orden de las hojas a mano.
mucho trabajo.
¿es posible esto?
de ser asi ¿como se hace?
La impresora es una HP laserJet 1320, y por lo que vi en el manual e incluso
en las propiedades, no es posible desde la impresora en si.
¿puedo hacerlo desde el excel?
¿alguna macro?

Muchas Gracias !!!
ADRIAN

[Adrian]

Hola a Todos !!!
Lo que quiero hacer desde el excel es que las hojas se impriman en sentido
inverso.. es decir, primero la hoja 10 y por ultimo la hoja 1. Esto no es un
capricho sino que tengo que imprimir en hojas Prenumeradas y no son en
realidad 10 hojas sino miles... y la forma en que toma las hojas la
impresora indica que tendria que invertir el orden de las hojas a mano.
mucho trabajo.
¿es posible esto?
de ser asi ¿como se hace?
La impresora es una HP laserJet 1320, y por lo que vi en el manual e incluso
en las propiedades, no es posible desde la impresora en si.
¿puedo hacerlo desde el excel?
¿alguna macro?

Muchas Gracias !!!
ADRIAN

[Juan]

Hola Adrian

mira el siguiente enlace a ver si es lo que buscas

http://www.erlandsendata.no/english/index.php?d=envbaprintprintreverse

[Adrian]

Hola Juan, gracias por tu ayuda pero tengo un problema, si bien el codigo
parece correcto

Sub PrintInReverseOrder()
Dim TotalPages As Long, p As Long
TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = TotalPages To 1 Step -1
'ActiveSheet.PrintOut p, p
Debug.Print "Printing page " & p & " of " & TotalPages
Next p
End Sub

Tengo un problema que no se por que sucede, la linea
"ActiveSheet.HPageBreaks.Count" devuelve 0 por mas que tenga mas de una
pagina en la planilla activa, al igual que "ActiveSheet.VPageBreaks.Count"
que tambien devuelve 0

Post by Juan
Hola Adrian
mira el siguiente enlace a ver si es lo que buscas
http://www.erlandsendata.no/english/index.php?d=envbaprintprintreverse

[Juan]

Hola Adrian

En el editor de VB prueba a activar la ventana inmediato <Ctrl+G> y añade
estas lineas antes de la instruccion For

Debug.Print ActiveSheet.HPageBreaks.Count
Debug.Print ActiveSheet.VPageBreaks.Count

Lo que hace es escribir en esa ventana los valores de los saltos de página.
Si esos valores siguen siendo 0, será por que solo tienes una hoja que
imprimir??

La linea que marca la impresion es:

'ActiveSheet.PrintOut p, p

a la que debes quitar la comilla para que funcione. (No se tu nivel de
conocimientos??, el mio es de andar por casa)
La linea pasará de verde al negro.

Por lo demás yo lo he probado y me funciono correctamente.

Una última cosa, prueba antes la vista preliminar y dar al botón de saltos
de página lo que te permitirá ver los que tienes en la hoja realmente.

Espero haberte ayudado.

Un saludo
Juan

Post by Adrian
Hola Juan, gracias por tu ayuda pero tengo un problema, si bien el codigo
parece correcto
Sub PrintInReverseOrder()
Dim TotalPages As Long, p As Long
TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = TotalPages To 1 Step -1
'ActiveSheet.PrintOut p, p
Debug.Print "Printing page " & p & " of " & TotalPages
Next p
End Sub
Tengo un problema que no se por que sucede, la linea
"ActiveSheet.HPageBreaks.Count" devuelve 0 por mas que tenga mas de una
pagina en la planilla activa, al igual que "ActiveSheet.VPageBreaks.Count"
que tambien devuelve 0

Post by Juan
Hola Adrian
mira el siguiente enlace a ver si es lo que buscas
http://www.erlandsendata.no/english/index.php?d=envbaprintprintreverse

[Adrian]

Juan... gracias nuevamente por tomarte la molestia...
Te cuento, tengo un alto nivel de programacion en VB pero de VB para
aplicaciones cero, si bien es muy parecido, desconosco las propiedades y
demas cosas que tengan que ver con esto...
Por otro lado, no se que habra pasado en el dia de ayer cuando estuve
probando el codigo, pero no funcionó en absoluto.
Hoy me senté en la maquina y simplemente, imprimió, asi de facil, incluso
estuve probando algunas modificaciones (como para curiosear nomas) y todo
salio bien...
Te agradezco nuevamente tu ayuda y bueno, cosas de la informatica!
Un abrazo !!!!

Post by Juan
Hola Adrian
En el editor de VB prueba a activar la ventana inmediato <Ctrl+G> y añade
estas lineas antes de la instruccion For
Debug.Print ActiveSheet.HPageBreaks.Count
Debug.Print ActiveSheet.VPageBreaks.Count
Lo que hace es escribir en esa ventana los valores de los saltos de página.
Si esos valores siguen siendo 0, será por que solo tienes una hoja que
imprimir??
'ActiveSheet.PrintOut p, p
a la que debes quitar la comilla para que funcione. (No se tu nivel de
conocimientos??, el mio es de andar por casa)
La linea pasará de verde al negro.
Por lo demás yo lo he probado y me funciono correctamente.
Una última cosa, prueba antes la vista preliminar y dar al botón de saltos
de página lo que te permitirá ver los que tienes en la hoja realmente.
Espero haberte ayudado.
Un saludo
Juan

Post by Adrian
Hola Juan, gracias por tu ayuda pero tengo un problema, si bien el codigo
parece correcto
Sub PrintInReverseOrder()
Dim TotalPages As Long, p As Long
TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = TotalPages To 1 Step -1
'ActiveSheet.PrintOut p, p
Debug.Print "Printing page " & p & " of " & TotalPages
Next p
End Sub
Tengo un problema que no se por que sucede, la linea
"ActiveSheet.HPageBreaks.Count" devuelve 0 por mas que tenga mas de una
pagina en la planilla activa, al igual que

"ActiveSheet.VPageBreaks.Count"

Post by Juan

Post by Adrian
que tambien devuelve 0

Post by Juan
Hola Adrian
mira el siguiente enlace a ver si es lo que buscas
http://www.erlandsendata.no/english/index.php?d=envbaprintprintreverse