imprimir y borrar

13/10/2006 - 17:28 por Dorian | Informe spam
hola grupo !!

hay alguna forma de que al imprimir una hoja se borren las celdas que
contienen datos (no fórmulas)\ necesito estoy porque estoy trabajando con un
formulario y necesitaria que se borrasen los datos que ingresó el usuario,
pero que connserve las fórmulas\

desde ya muchas gracias\

saludos

dorian+

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
13/10/2006 - 20:17 | Informe spam
hoa, Dorian !

... que al imprimir una hoja se borren las celdas que contienen datos (no formulas)
... estoy trabajando con un formulario... que se borrasen los datos que ingreso el usuario, pero que connserve las formulas



podrias utilizar una 'secuencia' de procedimientos +/- como sigue:

1) en un modulo de codigo 'general':
Option Private Module
Sub Borrar_constantes()
On Error Resume Next
Worksheets("hoja1").Cells.SpecialCells(xlCellTypeConstants).ClearContents
End Sub

2) en el modulo de codigo del libro [ThisWorkbok]:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "Borrar_constantes"
End Sub

notas: el evento '_beforeprint' se dispara tanto con la vista preliminar de impresion como una impresion 'directa'
[por lo que si en vista preliminar... se cancela... -> los datos se borran] <= OJO
[ademas] habria que 'monitorear' si la hoja 'borrable' esta dentr de la seleccion de hojas 'a imprimirse' -?-
[y posiblemente, algunas otras 'cosillas' mas] :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Dorian
02/11/2006 - 11:57 | Informe spam
hola héctor !!

bueno, estuve de vacaciones y recién veo la respuesta y como no me gusta
dejar ayudas sin agradecer... pues eso:

muchas gracias !!!! :)

un abrazo

dorian+





"Héctor Miguel" escribió en el mensaje
news:%
hoa, Dorian !

... que al imprimir una hoja se borren las celdas que contienen datos (no
formulas)
... estoy trabajando con un formulario... que se borrasen los datos que
ingreso el usuario, pero que connserve las formulas



podrias utilizar una 'secuencia' de procedimientos +/- como sigue:

1) en un modulo de codigo 'general':
Option Private Module
Sub Borrar_constantes()
On Error Resume Next
Worksheets("hoja1").Cells.SpecialCells(xlCellTypeConstants).ClearContents
End Sub

2) en el modulo de codigo del libro [ThisWorkbok]:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "Borrar_constantes"
End Sub

notas: el evento '_beforeprint' se dispara tanto con la vista preliminar
de impresion como una impresion 'directa'
[por lo que si en vista preliminar... se cancela... -> los datos
se borran] <= OJO
[ademas] habria que 'monitorear' si la hoja 'borrable' esta dentr
de la seleccion de hojas 'a imprimirse' -?-
[y posiblemente, algunas otras 'cosillas' mas] :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida