After_print

No hay ningún evento AfterPrint, pero puedes usar el evento BeforePrint para (en el caso de que se vaya a imprimir determinada hoja) hacer los cambios que necesites, luego imprimir y por último restaurar la hoja a su estado anterior, algo como p. ej.:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Hoja1" Then Exit Sub 'Si la hoja no es Hoja1, imprimir normalmente

Dim vContenidoAnterior As Variant

Cancel = True 'Para impedir la impresión "normal"

With Worksheets("Hoja1")
vContenidoAnterior = .[A1] 'Almacenar el contenido de A1
.[A1] = "bbbb" 'Sustituir A1
Application.EnableEvents = False
.PrintOut 'Imprimir
Application.EnableEvents = True
.[A1] = vContenidoAnterior 'Restaurar A1
End With
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jordi" escribió en el mensaje news:640901c4013f$6f910940$
Hola a todos,
alguien sabe como saber cuando se ha terminado de imprimir
un documento?
Uso el evento Before_print para hacer algunos cambios en
la hoja i querría volver a dejarlo igual después de
imprimir.

Muchas gracias!!

Jordi