OCULTAR EL CONTENIDO DE UNA CELDA AL IMPRIMIR

hola, gdi !

... VER EL CONTENIDO DE UNAS CELDAS DETERMINADAS PERO QUE... NO SE IMPRIMA

-> utiliza los formatos condicionales para aplicar el color de relleno a 'esas' celdas y...
'condiciona' [por formula en el formato condicional] su aplicacion al valor de 'x' celda
[p.e. a que la celda 'A1' contenga un valor =1]
[podrias 'forzar y restablecer' el valor de la celda_condicion en el evento '_beforeprint' del libro]
-> tip: para que no 'se vea' el contenido de 'A1'...
aplica un color de fuente blanco o un formato numerico personalizado de SOLO 3 punto y coma => ;;; <
te expongo un ejemplo al final suponiendo que se trata de la "Hoja1"...
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Hoja1").Range("a1") = 1
Application.OnTime Now + TimeValue("0:00:01"), "Quitar_color"
End Sub
en un modulo de codigo 'normal' ==Option Private Module
Sub Quitar_color()
Worksheets("Hoja1").Range("a1").ClearContents
End Sub

GRACIAS HECTOR. TU SOLUCIÓN ME HA SERVIDO DE GRAN AYUDA

"Héctor Miguel" escribió:

hola, gdi !

> ... VER EL CONTENIDO DE UNAS CELDAS DETERMINADAS PERO QUE... NO SE IMPRIMA

-> utiliza los formatos condicionales para aplicar el color de relleno a 'esas' celdas y...
'condiciona' [por formula en el formato condicional] su aplicacion al valor de 'x' celda
[p.e. a que la celda 'A1' contenga un valor =1]
[podrias 'forzar y restablecer' el valor de la celda_condicion en el evento '_beforeprint' del libro]
-> tip: para que no 'se vea' el contenido de 'A1'...
aplica un color de fuente blanco o un formato numerico personalizado de SOLO 3 punto y coma => ;;; <>
te expongo un ejemplo al final suponiendo que se trata de la "Hoja1"...
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Hoja1").Range("a1") = 1
Application.OnTime Now + TimeValue("0:00:01"), "Quitar_color"
End Sub
en un modulo de codigo 'normal' ==> Option Private Module
Sub Quitar_color()
Worksheets("Hoja1").Range("a1").ClearContents
End Sub