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
les envio esta utileria para generar un layout de horas extras para efectos de subirlo a un sistema de nominas
me da un resultado satisfactorio para 30 gentes
aqui mi problema es como puedo compactar el procedimiento que tengo de los primeros cuatro pasos
y hacerlo para mas gentes
aclaro soy un mortal que le gusta optimizar sus procesos mediante, la aplicacion de los codigos que ustedes
ponen en este foro
me han ayudado en grande , comparto esto , pero tiene esa limitante de que no puedo generarlo para mas gente
por que me da el error de que el procedimiento es demasiado largo
saludos
LAYOUTEXTRAS.zip