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
Primero que todo, saludar a todos los amigos del Foro.
Felicitarlos por el Galardon MVP.
Además de agradecer a todos los usuarios que personalmente me han ayudado mucho.
Por otra parte afirmar que las modificaciones al foro estan excelente y me sumo a los multiples usuarios que las acatan.
Soy Cristian Hernandez Gonzalez
Escritor y Poeta Chileno.
Además trabajo para una compania de Telefonia y Televisión Digital
en Santiago.
He escrito más de una decena de libros, y me enamore de Excel
desde la primera vez que tuve que trabajar con él.
Espero poder colaborar con un granito de arena en el foro (así como creo haberlo hecho años anteriores) y poder ser un aporte para la comunidad.
Un abrazo desde Chile y lo mejor para cada uno de los usuarios.