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
Que tal amigos,
En primer lugar, la hoja que adjunto la descargué de esta página que de por cierto es muy interesante y gracias a ello he aprendido bastante.
Lo que quisiera que se añada es una macro que pueda consultar entre fechas diferentes, en donde los datos se encuentras en varias hojas.
Espero que puedan ayudarme.
Anticipadamente agradezco su tiempo y colaboración.
Saludos,
Maelo.
Registro de ventas.rar