Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro

27/04/2009 - 11:17 por Luis | Informe spam
Hola a todos:
Por favor necesito ayuda en una macro que me funciona bien, pero, lo que
deseo es que la hoja de la cual imprime continue OCULTA. Es posible ? que
línea /s me hace falta para poder conseguirlo? utilizo excel 2003

ESTA ES LA MACRO

Sub Imprimir()
Worksheets("Tantera").Activate
Application.ActivePrinter = "HP Deskjet D1500 series en Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, _
ActivePrinter:="HP Deskjet D1500 series en Ne02:", Collate:=True
End Sub
Gracias anticipadas
 

Leer las respuestas

#1 Juan M
27/04/2009 - 14:54 | Informe spam
"Luis" escribió
Hola a todos:
Por favor necesito ayuda en una macro que me funciona bien, pero, lo que
deseo es que la hoja de la cual imprime continue OCULTA. Es posible ? que
línea /s me hace falta para poder conseguirlo? utilizo excel 2003

ESTA ES LA MACRO

Sub Imprimir()
Worksheets("Tantera").Activate
Application.ActivePrinter = "HP Deskjet D1500 series en Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, _
ActivePrinter:="HP Deskjet D1500 series en Ne02:", Collate:=True
End Sub
Gracias anticipadas



Hola Luis,

Para poder imprimir una hoja es necesario que este visible, por lo tanto
deberías crear una macro que haga visible la hoja, la imprima y luego la
vuelva a ocultar otra vez.

Esto provoca una visión momentánea de la hoja que vas a imprimir, si no te
gusta que eso ocurra puedes añadir la siguiente línea al principio del
código

Quedaría así:

Sub Imprimir()
Application.ScreenUpdating = False
Worksheets("Tantera").Visible = xlSheetVisible
Worksheets("Tantera").Activate
Application.ActivePrinter = "HP Deskjet D1500 series en Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, _
ActivePrinter:="HP Deskjet D1500 series en Ne02:", Collate:=True
Worksheets("Tantera").Visible = xlSheetHidden
End Sub

Un saludo,
Juan

Preguntas similares