Configuración ajuste de pagina o similar

08/07/2009 - 12:50 por Jon | Informe spam
Buenos dias a todos,

En primer lugar gracias a todos por leer este post ya que espero que alguno
de vosotros pueda ayudarme o por lo menos decime si es posible llevarlo a
cabo o no. Es un tema de bastante urgencia por un trabajo que tengo que
realizar... a ver si llegamos a tiempo, jaja.

El tema es el siguiente: en una misma hoja quiero hacer dos configuraciones
de página a la hora de impresión, de forma que con un botón imprima 2 hojas
que tenga configuradas y con otro boton imprima otras 5 que tenga
configuradas de forma diferente. ¿Existe alguna forma "sencilla" de
realizarlo?, como se pueden guardar configuraciones de impresion, de
distribución de hojas?

Saludos y gracias de antemano.
 

Leer las respuestas

#1 Jon
09/07/2009 - 09:47 | Informe spam
Muchas gracias Juan, era lo que necesitaba!
Investigando por ahi, también he conseguido esto:
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$124"
Saludos y gracias de nuevo!


"Juan Español" wrote:

Hola Jon:
Este es un tema poco tratado en el foro, pero muy útil y muy fácil.

Según yo entiendo tu consulta te refieres a
Menú principal > Ver > Vistas personalizadas
Una Vista personalizada es "una forma de ver" una Hoja concreta
con sus columnas y filas ocultas a capricho y filtros personalizados incluso puedes definir un área de impresión.
Puedes guardar también la configuración de impresión.

Pero antes de empezar a hacer cambios, yo aconsejo guardar una Vista personalizada de cada Hoja "en su estado normal" tal cual trabajas con ella normalmente.
De tal manera que si tienes una hoja llamada "Tarifa de Precios" guardes una vista personalizada y la llames TP_0,
definas otras Vistas personalizadas de la misma hoja y las llames TP_1, TP_2 o como más te guste.
No olvides antes de guardar cada vista personalizada echarle un vistazo con Vista previa para asegurarte que es así como quieres guardarla.
Una vez hecho esto, el código del botón para imprimir sería más o menos así:

Private Sub CommandButton1_Click()
'Llamamos a la vista personalizada que queramos en este caso, llamada TP_1
ActiveWorkbook.CustomViews("TP_1").Show
'La imprimimos
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Volvemos a dejar la Hoja en su vista "normal".
ActiveWorkbook.CustomViews("TP_0").Show
'Podemos llamar a otras vistas, imprimirlas, y volver a dejar la hoja en su vista "normal"
'Volvemos a la hoja donde está el botón
Sheets("Lahojadondeestaelboton").Select
End Sub




"Jon" escribió en el mensaje de noticias news:
> Buenos dias a todos,
>
> En primer lugar gracias a todos por leer este post ya que espero que alguno
> de vosotros pueda ayudarme o por lo menos decime si es posible llevarlo a
> cabo o no. Es un tema de bastante urgencia por un trabajo que tengo que
> realizar... a ver si llegamos a tiempo, jaja.
>
> El tema es el siguiente: en una misma hoja quiero hacer dos configuraciones
> de página a la hora de impresión, de forma que con un botón imprima 2 hojas
> que tenga configuradas y con otro boton imprima otras 5 que tenga
> configuradas de forma diferente. ¿Existe alguna forma "sencilla" de
> realizarlo?, como se pueden guardar configuraciones de impresion, de
> distribución de hojas?
>
> Saludos y gracias de antemano

Preguntas similares