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
Estimados amigos...
Hoy vengo con una interrogante, donde puedo conseguir una macro para obtener los FaceId ¿?
He probado muchas de la red, y de todas las que he probado dos o tres de ellas se detienen en ActiveSheet.Paste, y no entiendo el motivo.
Este es una de las macros que se detiene en ActiveSheet.Paste: https://excelforo.blogspot.com/2014/12/vba-listar-los-iconos-que-corresponden.html
Espero me puedan echar una mano con esto.
De preferencia macros, no me gusta mucho la idea de instalar Add-in por desconfianza, a no ser que ustedes la recomienden.
Saludos.