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

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Gracias por responder, perdón por la confusión, efectivamente al imprimir me sigue colocando los montos errados al imprimir el formulario

hace 21 horas, dorgelis dijo:

Application.Wait (Now + TimeValue("0:00:01"))

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente.

Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

Le aumenté a 3 Seg. Y nada, no se que estoy haciendo mal

Este seria la impresión original al cargar el Formulario:

Y esta es la Impresión que me sale, me carga el Saldo en la Celda J21 del Recibo