1. Habilite la pestaña del desarrollador:
* Vaya a Archivo> Opciones> Personalizar la cinta .
* Marque la casilla junto a desarrollador y haga clic en ok .
2. Inserte el código VBA:
* Haga clic en el desarrollador pestaña y seleccione Visual Basic .
* En el Proyecto Ventana, haga clic con el botón derecho en thisworkbook y elija insertar> módulo .
* Pegue el siguiente código en el módulo:
`` `VBA
Sub printsheetSindividually ()
Dim WS como hoja de trabajo
'Reunión a través de cada hoja en el libro de trabajo
Para cada WS en thisworkbook.worksheets
'Imprima la hoja actual
ws.printout copias:=1, recopilar:=verdadero
'Espere a que la impresión finalice (opcional)
Application.Wait Now + TimeValue ("00:00:05") 'Espere 5 segundos
Siguiente WS
Final
`` `` ``
3. Ejecute la macro:
* Cierre el editor Visual Basic .
* Vuelve al desarrollador pestaña y haga clic en macros .
* Seleccione PRIMPLESHEETSIndividualmente macro y haga clic en ejecutar .
Explicación:
* `sub printsheetSindividually ()`: Define el nombre macro.
* `Dim WS como hoja de trabajo ': Declara una variable para representar cada hoja de trabajo.
* `para cada ws en thisworkbook.worksheets`: Bucles a través de cada hoja del libro de trabajo.
* `ws.printout copias:=1, recopilar:=true`: Imprime la hoja de trabajo actual (usando 'WS`), con una copia y páginas recopiladas.
* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Esta línea opcional espera 5 segundos después de imprimir cada hoja para garantizar que el proceso de impresión esté completo antes de pasar a la siguiente hoja. Ajuste el tiempo de espera según sea necesario.
* `Next WS`: Termina el bucle y continúa a la siguiente hoja.
Notas importantes:
* El código supone que tiene una configuración de impresora predeterminada. Si no, puede especificar la impresora usando `ws.printout impresora:=" yourprintername "`.
* El `Wait` La declaración puede ser útil para evitar errores si la impresión toma una cantidad significativa de tiempo. Ajuste el tiempo de espera según sea necesario.
Alternativa:usando un método de bucle y `imprenta` (sin VBA):
Si bien este método no imprime cada hoja individualmente, puede usar un bucle en una fórmula de celda para activar el proceso de impresión:
1. En una celda, ingrese la siguiente fórmula:
`` `Excel
=If (row () <=sheets (), "Imprimir hoja" &row (), "")
`` `` ``
2. Copie esta fórmula a la cantidad de hojas en su libro de trabajo.
3. Use los siguientes pasos para imprimir cada hoja utilizando `Printout` método:
* Vaya a archivo> imprimir .
* En el rango de impresión desplegable, seleccione selección .
* Haga clic en Imprimir .
Esto activará el proceso de impresión para cada hoja a medida que copie la fórmula en la columna.
Elija el método que mejor se adapte a sus necesidades y preferencias.