Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Apenas a unos kilómetros de mi casa, un tren de alta velocidad ha descarrilado cuando circulaba a 200 Km/hora.
Cerca de 80 muertos y mas de un centenar de heridos, muchos de ellos en estado gravísimo.
No puedo expresar con palabras la enorme tristeza que siento en estos momentos.
Desde lo mas profundo de mi corazón deseo hacer llegar un abrazo a todos los heridos y familiares de las víctimas.