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 que tal? espero que se encuentren bien.
Se me presentó el problema, cloné un proyecto que funciona bien solo que esta vez adicioné un boton de "ALTA CLIENTE" con un nuevo formulario,
y cada vez que ejecuto botón "VOLVER" con:
Unload Me
UserForm.Show
se cierran todos los formularios. Espero me puedan ayudar, saludos