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:
Adjunto un libro y dentro he colocado una breve descripción de lo que solicito me puedan ayudar.
Basicamente se trata de datos de una hoja con gastos, que deseo se carguen en otra hoja, si corrresponde a ella o a otra hoja si corresponde.
Tambien en la pestaña "Mantenimiento" deseo que cada rubro se vaya calculando su costo por día a medida que transcurre cada fecha.
Muy agradecido y saludos cordiales
Jacinto
julio2012(version-2003).xls