Imprimir varias hojas desde un boton

hola, Antonio !

... como puedo hacer un boton en una hoja donde pongo los datos
... que me imprima las otras tres llamadas TITULAR,DISTRIBUIDORA e INSTALADORA.

dependiendo del 'tipo' de boton que vayas a incrustar en 'la hoja'...
y suponiendo que por '... las otras tres ...' significa que => se imprimen 4 hojas [incluyendo la 'activa']...
prueba con un codigo +/- como el siguiente...
==Sub Imprime_4_hojas()
Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array(.Name, "titular", "distribuidora", "instaladora")).Select
ActiveWindow.SelectedSheets.PrintPreview
.Select
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Esto me funciuona bien pero lo mejor seria que se lanzase directamente a la
impresora y que la hoja activa no se imprima.

Gracias por tu ayuda
"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

... como puedo hacer un boton en una hoja donde pongo los datos
... que me imprima las otras tres llamadas TITULAR,DISTRIBUIDORA e
INSTALADORA.

dependiendo del 'tipo' de boton que vayas a incrustar en 'la hoja'...
y suponiendo que por '... las otras tres ...' significa que => se imprimen
4 hojas [incluyendo la 'activa']...
prueba con un codigo +/- como el siguiente...
==> Sub Imprime_4_hojas()
Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array(.Name, "titular", "distribuidora",
"instaladora")).Select
ActiveWindow.SelectedSheets.PrintPreview
.Select
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Antonio !

... funciuona bien pero lo mejor seria que se lanzase directamente a la impresora y que la hoja activa no se imprima.

solo cambia el 'printpreview' por -> 'printout' [que a mi 'se me quedo' de las pruebas] :))
y 'saca' del array 'el nombre' de la hoja activa -> .name
y prueba con las modificaciones [p.e.]

Sub Imprime_3_hojas()
Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array("titular", "distribuidora", "instaladora")).Select
ActiveWindow.SelectedSheets.PrintOut
.Select
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Si las hojas estan ocultas como puedo hacer lo mismo.


"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

... funciuona bien pero lo mejor seria que se lanzase directamente a la
impresora y que la hoja activa no se imprima.

solo cambia el 'printpreview' por -> 'printout' [que a mi 'se me quedo'
de las pruebas] :))
y 'saca' del array 'el nombre' de la hoja activa -> .name
y prueba con las modificaciones [p.e.]

Sub Imprime_3_hojas()
Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array("titular", "distribuidora", "instaladora")).Select
ActiveWindow.SelectedSheets.PrintOut
.Select
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Antonio !

Si las hojas estan ocultas como puedo hacer lo mismo.

si las hojas estan ocultas... tendras que mostrarlas primero [una por una] y las puedes ocultar al final :))
prueba con una macro +/- como la siguiente:
en un modulo de codigo 'normal' ==Sub Imprime_3_hojas()
Dim Estas_hojas
Application.ScreenUpdating = False
Estas_hojas = Array("titular", "distribuidora", "instaladora")
With ActiveSheet
For Each Hoja In Worksheets(Estas_hojas)
Hoja.Visible = True
Next
Worksheets(Estas_hojas).Select
With ActiveWindow.SelectedSheets
.PrintOut
.Visible = False
End With
.Select
End With
End Sub

saludos,
hector.

nota: si quisieras ocultar las hojas con la propiedad '.visible' en 'xlSheetVeryHidden'
necesitaras recurrir a un bucle [de nuevo] hoja por hoja :-( [p.e.]
cambia las lineas -> despues de la instruccion 'Worksheets(Estas_hojas).Select' a lo siguiente:
[... ... ...]
ActiveWindow.SelectedSheets.PrintOut
For Each Hoja In Worksheets(Estas_hojas)
Hoja.Visible = xlSheetVeryHidden
Next
.Select
End With
End Sub