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
No podemos dejar desapercibido, saludar al gran ser que nos dio la vida.
Seguro que al igual que en mi país, existen otros en el mundo en el que estamos celebrando el DIA DE LA MADRE.
Un saludo especial para todas ellas, en especial para las más cercanas, y para aquellas que ya están en el cielo, una oración para ellas.
Hago extensivo mi saludo para todos sus hogares amigos foristas.
Saludos desde Perú
Jorge Bejarano