imprimir y borrar

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.

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.