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
Hoy cumple 30 años el producto que da sentido a este foro.
¡¡¡Muchas felicidades EXCEL y que cumplas muchos más!!!
Para celebrar este día os dejo un par de enlaces que recuerdan cómo se creó la versión de Excel 1.0
Microsoft Excel cumple 30 años
http://www.softzone.es/2015/09/28/microsoft-excel-cumple-30-anos/
‘Recalc or Die’: 30 years later, Microsoft Excel 1.0 vets recount a project that defied the odds
http://www.geekwire.com/2015/recalc-or-die-30-years-later-microsoft-excel-1-0-vets-recount-a-project-that-defied-the-odds/
En este enlace en inglés entrevistan a los creadores de Excel 1.0, Mike Koss, Jabe Blumenthal, Doug Klunder y Jon DeVaan. ¡Que lo disfrutéis!