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
Gráfico Tablero Ventas acumuladas
Link en Dropbox:
https://www.dropbox.com/home?preview=Excel+Tablero+Ventas+acumuladas+con+cambio+gr%C3%A1fico.rar
Nota: Apliqué el cambio de gráfico que realizó el creador de este blog: Foro ayuda Excel
1. En celda B3, seleccionar un Mes
En Tabla se genera
a) La Ciudad con > Ventas acumuladas de Enero a Diciembre, con Su > Valor
c) La Posición en Ventas, y se resalta la ciudad con Posición 1
d) Gráfica con Ventas de cada ciudad con la Sumatoria en Ventas en el Mes seleccionado
e) Velocímetro que indica la ciudad con > Ventas acumuladas en Mes seleccionado, su Valor y su%
f) Clic en celda B28, para cambiar el tipo de gráfico: Lineal, Área, Columna
Las explicaciones están en la Hoja de Excel