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
Amigos del Foro.
No podía pasar estos días sin felicitaros las Navidades a todos; componentes del foro, amigos colaboradores, etc.
Ha sido un año difícil, falta de trabajo, crisis, especulación y mas y mas y mas.
Espero que este próximo año que vamos a comenzar nos de todo aquello que deseamos con humildad y prosperidad. Eso es lo que deseo para todos.
Recuerdo una gran frase de Literatura de Antonio Machado;
Si es mejor vivir, todavía es mejor soñar
pero lo mejor es despertar.
Feliz Navidad y un prospero feliz año Nuevo 2016.
saludos Hugo.