El proceso habitual de impresión de etiquetas desde Microsoft Excel implica la fusión de hojas de cálculo con Microsoft Word. Pero algunas personas prefieren completar todas las tareas dentro de Excel. Por suerte, existe una forma de imprimir las etiquetas en Excel sin involucrarse con Word. Este tutorial se centrará en cómo lograrlo.

Descargar el cuaderno de prácticas

Puede descargar el libro de trabajo con el conjunto de datos y la macro utilizados para la demostración desde el siguiente enlace y utilizarlo como plantilla.

Imprimir etiquetas sin Word.xlsm

Este es el archivo que contiene las etiquetas imprimibles.

Imprimir etiquetas sin Word.pdf

Procedimiento paso a paso para imprimir etiquetas en Excel sin Word

A imprimir etiquetas directamente desde Excel sin utilizar Microsoft word, sólo tenemos que imprimir la hoja de cálculo Excel con el tamaño de etiqueta adecuado. Podemos transformar el tamaño de celda que se ajuste al tamaño de etiqueta. Vamos a utilizar código VBA para realizar la tarea por nosotros.

En primer lugar, supongamos que tenemos el siguiente conjunto de datos.

Primero vamos a convertir cada dato en etiquetas y luego las imprimiremos en Excel sin ayuda de Word.

Para poder utilizar Microsoft Visual Basic para Aplicaciones (VBA) en Excel, primero necesita el programa Desarrollador Pulse aquí para ver cómo puede mostrar la pestaña Desarrollador en la cinta de opciones Una vez que lo tengas, sigue los pasos que te hemos mostrado para imprimir estas etiquetas en Excel sin Word.

Paso 1: Copiar datos a una nueva hoja

La selección del código VBA aquí sólo puede funcionar correctamente si las entradas de celda comienzan a partir de la celda A1 Por lo tanto, primero tenemos que organizar nuestro conjunto de datos que contiene todas las etiquetas de tal manera. En caso de que su conjunto de datos comience en cualquier lugar distinto de la celda A1 como la nuestra, que empezó en la célula B5 En primer lugar, cópialos en una hoja de cálculo nueva y ponlos al principio. Debería tener este aspecto.

Ahora debería estar listo para trabajar con el código VBA.

Paso 2: Insertar código VBA

A continuación, tenemos que insertar el código VBA para ajustar las etiquetas al tamaño y la forma que deseemos. Para insertar el código VBA-

• En primer lugar, vaya a la página Desarrolladores de la cinta de opciones.
• A continuación, seleccione Visual Basic del Código grupo.

• Como resultado, se abrirá la ventana VBA. Ahora seleccione la opción Inserte y seleccione Módulo en el menú desplegable.

• Después, ve al módulo y escribe el siguiente código.

 Este código creará etiquetas en Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

🔎 Código Explicación

Hay dos partes o subs en este código VBA- el CrearEtiqueta sub y el PreguntaPorColumna En primer lugar, vamos a explicar lo que está pasando en el sub AskForColumn y luego pasar a la CreateLabel sub para explicar cómo funciona el código.

Primera parte:

Para una mejor comprensión, hemos dividido la parte en diferentes secciones. Observa la figura al final de la discusión.

👉 Sección 1: Esta sección declara el nombre del sub PreguntaPorColumna .

👉 Sección 2: Hemos utilizado esta sección para declarar tres variables: refrg, vrb y data.

👉 Sección 3: En esta sección, hemos establecido valores para refrg y data.

👉 Sección 4: En este punto, el código muestra un cuadro de entrada en la hoja de cálculo.

👉 Sección 5: En esta sección, un Para para el número introducido en la casilla de entrada.

👉 Sección 6: Esta sección del código redimensiona ahora las celdas.

👉 Sección 7: Por último, en esta sección se borran los contenidos sobrantes.

Segunda parte:

Al igual que en la parte anterior, también hemos dividido este subapartado en diferentes secciones. Siga la figura que aparece al final de la discusión para ver la parte visual.

👉 Sección 1: Esta parte del código declara el subnombre Crear etiquetas .

👉 Sección 2: Este comando ejecuta el sub anterior en este punto del código.

👉 Sección 3: Esta parte formatea cada celda utilizando el VBA Células propiedad.

Paso 3: Ejecutar el código VBA

Una vez introducido el código, cierre la ventana VBA. Para ejecutar el código ahora siga estos pasos.

• En primer lugar, vaya a la página Desarrollador de la cinta de opciones.
• En segundo lugar, seleccione Macros del Código grupo.

• Ahora en el Macro seleccione Createlables bajo el Nombre de la macro .

• A continuación, haga clic en Ejecutar .
• A continuación, seleccione el número de columnas que desee. Nosotros vamos a seleccionar 3 para la demostración. A continuación, haga clic en OK .

La hoja de cálculo tendrá ahora este aspecto automáticamente.

Las etiquetas ya están listas para imprimir en Excel sin necesidad de utilizar Word.

Más información: Cómo imprimir etiquetas de Excel en Word (con sencillos pasos)

Paso 4: Establecer márgenes personalizados

Para imprimir las etiquetas, necesitamos establecer los márgenes correctos para la página impresa. Para ello, debemos elegir el tamaño adecuado de forma que no afecte a la posición de la etiqueta ni comprometa ninguna etiqueta de la hoja. Para establecer márgenes personalizados, sigue estos pasos.

• En primer lugar, vaya a la página Diseño de página de la cinta de opciones.
• A continuación, seleccione la opción Configurar página Lo encontrará en la parte inferior derecha de cada grupo.

• Como resultado, el Configurar página Ahora vaya a la sección Márgenes en ella.
• A continuación, seleccione las longitudes de margen deseadas para su página impresa. Nosotros hemos seleccionado las siguientes.

• Una vez que haya terminado, haga clic en OK .

Paso 5: Seleccionar las opciones de escala para la impresión

El escalado adecuado también es importante para imprimir etiquetas. Por ejemplo, lo que hemos hecho hasta ahora imprimirá la página así.

Que ciertamente no es nuestro objetivo. Así que tenemos que encajar la hoja en una página. Para hacer eso-

• En primer lugar, vaya a la sección de vista previa de impresión pulsando Ctrl+P en el teclado.
• En la parte inferior izquierda de la vista, puede encontrar Ajustes Debajo encontrará Escala al final.

• Ahora haga clic en la opción de escala y seleccione Hoja de ajuste en una página en el menú desplegable.

En este punto se habrá completado el escalado de las etiquetas.

Más información: Cómo imprimir etiquetas de direcciones en Excel (2 formas rápidas)

Paso 6: Imprimir la hoja de cálculo

Mientras aún está en la pantalla de vista previa de impresión, haga clic en Imprimir en la parte superior izquierda de la vista.

Haga clic en él y esto imprimirá todas las etiquetas en Excel sin ayuda de Word.

Cosas para recordar

👉 Antes de ejecutar el código VBA, asegúrese de que todas sus etiquetas comienzan en la celda A1 .

👉 Selecciona el margen y la escala adecuados antes de imprimir para que todas las etiquetas quepan en la página. De lo contrario, algunas podrían quedar cortadas.

👉 Las acciones de código VBA son irreversibles. Así que asegúrate de tener una copia de seguridad de los datos necesarios antes de ejecutar una.

Conclusión

Estos son los pasos a seguir para imprimir etiquetas en Excel sin usar Microsoft Word. Espero que ahora pueda imprimir etiquetas en Excel sin Word. Espero que esta guía le haya resultado útil e informativa. Si tiene alguna pregunta o sugerencia, háganoslo saber en los comentarios a continuación.

Para más guías como ésta, visite Exceldemy.com .