Imprimir hoja oculta

pregunta para Elsa matilde

Estimada Elsa, me habías aconsejado esta codificación

Sub IMPRIMIR() Sheets("Hoja2").Select Application.Dialogs(xlDialogPrinterSetup).Show Application.Dialogs(xlDialogPrintPreview).Show ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

para imprimir, desde un botón de comando, en la hoja1, pero preferí "ocultar" la hoja2 y este código ya no me funciona.

espero tu respuesta. Gracias

1 respuesta

Respuesta
1

En la misma rutina tenés que mostrar la hoja y luego ocultarla nuevamente:

Sub IMPRIMIR() 
Sheets("Hoja2").Visible = True
Sheets("Hoja2").Select 
Application.Dialogs(xlDialogPrinterSetup).Show 
Application.Dialogs(xlDialogPrintPreview).Show 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
sheets("Hoja2").Visible = xlveryHidden
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas