Borrar celdas después de imprimir la Plantilla

Buenas tardes
Experto
Agradeceré mucho me puedas ayudar estoy programando una cmd Print que envía la información a ciertas celdas en la hoja 2 que se llama Plantilla en celdas especifica cosa que ya logre lo que necesito ahora es que después de imprimir borre el contenido de las celdas automáticamente la macro va más o menos así:
Private Sub cmdImprimir_Click()
Sheets("PLANTILLA").Activate
Range("F8") = TextBox1.Value
Range("B9") = TextBox2.Value
Range("E9") = DTPicker1.Value
Range("B11") = ComboBox1.Value
Range("B13") = TextBox3.Value
Range("E13") = TextBox4.Value
Range("B14") = DTPicker2.Value
ActiveSheet.PrintOut Copies:=1
Range("impresion").Select
End Sub
Pense que despues para borrar funcionaría esto:
Private Sub Workbook_AfterPrint(Cancel As Boolean)
Range("F8") = ClearContents
Range("B9") = ClearContents
Range("E9") = ClearContents
Range("B11") = ClearContents
End sub
Pero no me funciono si pudiese ayudarme muchas gracias desde ya.

1 Respuesta

Respuesta
.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas