Imprimir Texto oculto Excel?

Buen dia Necesito ocultar ciertas celdas en Excel, pero que estas salgan impresas, es decir, no se vean los datos en pantalla, pero si en la hoja impresa. He probado con esto ";;;" si lo oculta, pero no lo imprime. De antemano muchas gracias por su ayuda y atencion

1 respuesta

Respuesta
1

Puedes utilizar una macro para imprimir tu hoja.

Mantén el formato ";;;" en las celdas que quieres ocultar. Ejecuta la macro para imprimir.

Lo que hace la macro es cambiar a cada celda que tiene el formato ";;;" al formato "General", te imprime la hoja y después regresa las celdas cambiadas al formato ";;;". Pero deberás imprimir desde esta macro, si imprimes desde el menú las celdas ocultas no se verán en la impresión.

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel

2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11

3. En el menú elige Insertar / Módulo

4. En el panel del lado derecho copia la macro

5. Ahora para crear un botón, puedes hacer lo siguiente:

6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas

7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.

8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar” (Esto es para que la imagen no se imprima)

9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona:  mostrar_imprimir

10. Aceptar.

11. Para ejecutarla dale click a la imagen.

Sub mostrar_imprimir()
'Por.DAM
Dim celda As New Collection
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange
        formato = c.NumberFormat
        If formato = ";;;" Then
            c.NumberFormat = "General"
            celda.Add c.Address
        End If
    Next
    'ActiveSheet.PrintPreview
    ActiveSheet.PrintOut Copies:=1, Collate:=True
    For Each c In celda
        Range(c).NumberFormat = ";;;"
    Next
    Application.ScreenUpdating = True
    MsgBox "Impresión realizada", vbInformation, "IMPRIMIR"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas