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
Buen día a todos los grandes filosofos excelianos, adjunto mi archivo donde me ha dado vueltas y vueltas para colocar
una consulta para determinar los meses por columnas de los trabajadores como así también la numeración cronológica "Nºde Orden" con la consulta SQL.
Entre tanto solo pude hacerlo con una aparente solución como podrán apreciar, utilizando .FormulaLocal, agradecería si
si me pueden dar una mano para solucionar mi problemita.
Desde ya gracias.
SSyJ002.rar