Impedir la impresion de algunas celdas

20/10/2008 - 22:18 por Anti_Work | Informe spam
Hola.
Estoy preparando una hoja para imprimir los títulos de una escuela. El
Título debe imprimirse en una hoja que ya tiene algunas cosas impresas (las
que no cambian) y lo que se debe completar son los datos del alumno, escuela,
etc.
como hacer para imprimir solo los datos que se agregan y los otros que se
vean pero que no se impriman; por ejemplo:

El Alumno: Perez, Juan

que se vea toda la liena, pero que solo se imprima Perez, Juan

Muchas gracias desde ya, Saludos
 

Leer las respuestas

#1 Héctor Miguel
20/10/2008 - 23:19 | Informe spam
hola, !

Estoy preparando una hoja para imprimir los titulos de una escuela.
El Titulo debe imprimirse en una hoja que ya tiene algunas cosas impresas (las que no cambian)
y lo que se debe completar son los datos del alumno, escuela, etc.
como hacer para imprimir solo los datos que se agregan y los otros que se vean pero que no se impriman; por ejemplo:
El Alumno: Perez, Juan
que se vea toda la liena, pero que solo se imprima Perez, Juan



op1: lo que no quieras que se imprima... NO lo pongas en las celdas
ponlo (p.e.) en cuadros de texto y en sus propiedades establece que el objeto NO se imprima

op2: utiliza los formatos condicionales para aplicar el color de relleno (p.e. blanco) a las celdas que no se imprimen y...
"condiciona" (por formula en el formato condicional) su aplicacion al valor de "x_celda"
(p.e. que la celda A1 contenga un valor =1) =$a$1=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, "Quitar_color"
End Sub

en un modulo de codigo 'normal' ==Option Private Module
Sub Quitar_color()
Worksheets("hoja1").Range("a1").ClearContents
End Sub

Preguntas similares