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 es el sitio más adecuado para insertar este comentario por mi parte,
Pero sirva este para agradecer a Macro Antonio el desvelo y la paciencia que ha tenido para conmigo, en la confección y terminación del fichero
“A pesar de que nadie es imprescindible, debes darte cuenta de que sin ti la vida de otras personas no sería igual de feliz”.
Como no quiero ser pelma, extendiéndome en alabanzas.
Un buen apretón de manos , un abrazo, pero que muy fuerte.
Gracias.