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 a todos.
Me he liado a preguntar y no había visto que había un espacio para presentarnos.
Desde hace muchos años he utilizado Excel, sobre todo en mi profesión, pero hasta ahora no eran más que plantillas de cálculo muy simples.
Pero como en todo, toca evolucionar y creo que he descubierto el sitio adecuado
Dicho esto, espero aprender mucho de todos vosotros y poder aportar mi granito de arena en breve.
Un saludo.