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
Buenos días a todos,
ya se hacer un MsgBox en ThisWorkbook
ya se hacer un UserForm (como información) dentro de un programa,
pero no se hacer Un UserForm en ThisWorkbook que arranque al abrir un Libro (Excel)
dentro un programa ya tengo un Userform con el siguiente nombre: Private Sub UserForm_Initialize ()
aparte de decirme como lo hago, debo cambiar este nombre al UserForm nuevo ?
Como siempre, muchas gracias