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
Necesito llevar un control de consumos de determinados alimentos
Cada día doy desayunos, comidas, meriendas y cenas.
Debo saber las cantidades de alimentos y su coste.
Tal como lo hago, es bastante lioso.
Hay alguna manera de que pueda ser más automático?
Debo sumar cada alimento consumido en cada menú
Todas las patatas en un resumen fin de mes con su coste
Me podeís dar una idea?
COSTES CONSUMO DE PERSONAL PRIMAVERA 2014.xls