Impresion de Celdas

hola, Johann !

... una plantilla... quiero que solamente se imprima ciertas celdas [...]

dado que puedes ocular filas y/o columnas 'completas', pero... celdas 'individuales'... ¡ NOP !!! :((
o... la/s dejas 'fuera' del area de impresion
o... le/s aplicas un color de letra 'blanco' [o 'igualar' los colores de letra y fondo]
o... le/s aplicas un formato 'personalizado' con SOLO tres 'punto y coma' =>;;;<o... le/s sobrepones un rectangulo 'en blanco'
o... le/s aplicas un formato condicional 'sujeto' al valor de 'X' celda ['igualando' los colores de letra y fondo]
=> podrias 'forzar y devolver' el valor de la celda_condicion en el evento '_beforeprint' del libro <
te expongo un ejemplo al final
si cualquier duda [o informacion adicinal]... ¿comentas?
saludos,
hector.
=suponiendo que en la 'Hoja1' quieres ocultar [al imprimir] la celda 'X'...
1.- dale un formato condicional ->por formula<- p.ej. =$A$1=1
2.- aplicale un formato con color de texto blanco
3.- modifica el valor de $A$1 en el evento '_beforeprint' del libro

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"), "Volver_a_ver"
End Sub
en un modulo de codigo 'normal' ==Option Private Module
Sub Volver_a_ver()
Worksheets("Hoja1").Range("a1").ClearContents
End Sub

Gracias, voy a hacer unas pruebas, si tienes otras ideas, xfa me las haces
llegar, voy a hacer una prueba de cambiar el color de las celdas que no
quiero que salgan impresas, x blanco durante unos segundos, y que luego se
restablezcan.


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

hola, Johann !

... una plantilla... quiero que solamente se imprima ciertas celdas [...]

dado que puedes ocular filas y/o columnas 'completas', pero... celdas
'individuales'... ¡ NOP !!! :((
o... la/s dejas 'fuera' del area de impresion
o... le/s aplicas un color de letra 'blanco' [o 'igualar' los colores de
letra y fondo]
o... le/s aplicas un formato 'personalizado' con SOLO tres 'punto y coma'
=>;;;<> o... le/s sobrepones un rectangulo 'en blanco'
o... le/s aplicas un formato condicional 'sujeto' al valor de 'X' celda
['igualando' los colores de letra y fondo]
=> podrias 'forzar y devolver' el valor de la celda_condicion en el
evento '_beforeprint' del libro <>
te expongo un ejemplo al final
si cualquier duda [o informacion adicinal]... ¿comentas?
saludos,
hector.
=> suponiendo que en la 'Hoja1' quieres ocultar [al imprimir] la celda 'X'...
1.- dale un formato condicional ->por formula<- p.ej. =$A$1=1
2.- aplicale un formato con color de texto blanco
3.- modifica el valor de $A$1 en el evento '_beforeprint' del libro

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"), "Volver_a_ver"
End Sub
en un modulo de codigo 'normal' ==> Option Private Module
Sub Volver_a_ver()
Worksheets("Hoja1").Range("a1").ClearContents
End Sub

hola, Johann !

... voy a hacer una prueba de cambiar el color de las celdas... durante unos segundos [...]

no necesitas que sean 'varios' segundos ;)
-> mientras se esta mostrando el dialogo de impresion[preliminar]...
el que 'tiene el control' es el usuadio [por lo tanto]...
-> la 'siguiente' linea del codigo [el 'OnTime' para ejecutar 'volver_a_ver'] se queda en 'stand-by'

saludos,
hector.