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 ver si me pueden echar una mano.
Necesito obtener un valor que es un texto de una celda.
El resultado viene predenterminado por dos criterios.
Lo mejor para entender lo que pregunto es abrir la tabla.
Creo que está bien explicado, si no es así lo siento y buscaré una forma más concreta de explicarlo.
Libro11.xlsx