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.