Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Impresion de Celdas

07/03/2005 - 19:54 por Johann Romero | Informe spam
Ayuda Hacer una pregunta
Tengo un pequeño problema, tengo una plantilla, la cual quiero que solamente
se imprima ciertas celdas, solo quiero que se imprima las celdas que yo voy
a cambiar, mas no las que me sirven como guia para llenar la plantilla, es
decir, al igual como yo hago mi plantilla, y bloqueo las celdas para que
estas no puedan ser modificadas y solo puedan ser llenadas las celdas que yo
quiero, pues quiero que a la vez, estas celdas que estan bloquedas, no
quiero que salgan impresas cuando le doy imprimir.

Creo que esta todo claro.

Gracias x su ayuda y tiempo.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
07/03/2005 - 20:08 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :