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
24/06/2015
Les comparto esta fiesta de mi país..
espero les guste..
https://www.google.com.pe/url?sa=t&rct=j&q=&esrc=s&source=web&cd=4&cad=rja&uact=8&ved=0CCQQFjAD&url=https%3A%2F%2Fes.wikipedia.org%2Fwiki%2FInti_Raymi&ei=_EyMVcmYCYemNoK9ghg&usg=AFQjCNHCxqd84rCsOOi--2jggiOB-ng5dQ
http://www.google.com.pe/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0CBwQqQIwAA&url=http%3A%2F%2Fwww.rpp.com.pe%2F2015-06-23-interactivo-todo-sobre-la-ceremonia-del-inti-raymi-2015-noticia_810219.html&ei=cE2MVZTsNMy1ggSyt6bYBg&usg=AFQjCNG0gLRzdw9fS_A6a6ZSN6RC8qy5_Q
Silvia