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, chicos, a ver si podéis ayudarnos.
Partimos de esto:
Pasamos por la Plantilla
Se podría copia la info del txt de cada estudiante? y pegarla en la fila 8 y 9 en cada hoja para inglés y Matematicas
Para después renombrar cada archivo con el nombre del estudiante extraído del txt?
SE ADMITEN TODAS LAS POSIBILIDADES INCLUSO CAMBIAR EL XLSM A XLTM y hacerle warch
ojalá puedan ayudarme.
Muchas gracias a todos siempre
Explicación:
Student_Class1A_23224_Eng.txt Student_Class1A_23224_Math.txt Student_Class1A_23225_Eng.txt Student_Class1A_23225_Math.txt Student_Class1A_23224_Results.xlsm Student_Class1A_23225_Results.xlsm Test_Template.xlsm Prep.pdf Student_Class1A_23226_Eng.txt Student_Class1A_23226_Math.txt