Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión.

Recibo Inmobiliaria 1.xlsm

Hola, Dorgelis,

Si le pones un segundo de retraso a la macro antes de imprimir el formulario, consigues tu propósito.

Introduce la línea Application.Wait (Now + TimeValue("0:00:01"))

antes de esta:

 wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

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