imprimir solo hojas listadas

cbm escribió:

Buenas, tengo una columna en la que aparecen los nombres de ciertas
hojas, y quiero meter un command button que imprima solo esas hojas.
¿Sabeis si es posible?
Gracias

Hola Cbm :-)

Pues si es posible creo dependiendo de como tengas los nombres de las
hojas si son fijas o no , me explico, si en esa columna vas a cambiar
esos nombres o siempre en ella estaran los mismos nombres de hojas?¿

Si siempre estaran los mismos nombres de hojas puedes utilizar algo asi:

Private Sub CommandButton1_Click()

Sheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")).PrintOut

End Sub

Este codigo solo imprime una seleccion de hojas sin hacer mencion a la
columna, ya que imprime solo las hojas que tu quieras que impriman.

Y esta otra hace referencia al nombre de la hoja que escribas en la
celda "A1" de la hoja dos, te imprimira si pones hoja1 te imprimira la
hoja1, si pones hoja2 pues la hoja 2 etc...(que por cierto no se como
hacerlo para la columna entera :-(

Sub imprimir_HOjas_Segun_Celda()

Dim Sh As Variant

Sh = Sheets("hoja2").Range("A1")

If Sh = "Hoja1" Then
Sheets("hoja1").PrintOut
End If
If Sh = "Hoja2" Then
Sheets("Hoja2").PrintOut
End If
If Sh = "Hoja3" Then
Sheets("Hoja3").PrintOut
End If

End Sub


Bueno nos comentas :-)

Saludos
Monica

PD: ¡Aun no estoy con aquella macro de la otra vez, lo cierto es que se
las trae! :-)



¡Un SAludo! :-)

www.fermu.com
www.zorval.es