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
Hola qué tal soy Moisés,
Actualmente trabajo en una oficina donde los reportes en excel son de gran utilidad y en muchas ocasiones, se podría decir hasta imprecindibles.
Como todos sabrán, las posibilidades que excel nos ofrece son inmensas, así como inmensas sus funciones.
Espero poder aportar al foro en lo que me sea posible, así como también poder encontrar información para aclarar mis dudas.
Un abrazo!