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 Antoni, debo decirte que este programa que me hiciste es una maravilla, te lo curraste y mucho,
he hecho muchas pruebas con el, y para comprender mejor todo el funcionamiento, se me ocurren unas consultas.
1º En la Hoja "Caja" sobre qué, actúa el botón/macro "Reset" ?
2º En Hojas "Tickets y Detalle" que significa ID de la columna A ?
3º En Hoja "Detalle" en ID, qué significa el mismo número repetido ?
4º Porqué hay Hoja "Ticket" y Hoja "Detalle" ? no hacen más o menos lo mismo ?
5º Me imagino que las filas de las Hojas "Tickets" y "Detalle" no las debo borrar nunca, pues debe coger información de
allí, la Hoja "Estadística", o borrar el 1 de enero ? (para empezar a calcular de nuevo) ?
* Espero no ser demasiado pesado con tanta pregunta. y ... Muchas gracias Antoni
* HA! SI NO TE RESPONDO, NO PASA NADA, ME VOY 8 DÍAS DE VACACIONES, LUEGO NOS VEMOS.