Обычный процесс печати этикеток из Microsoft Excel включает объединение электронных таблиц с Microsoft Word. Но некоторые люди предпочитают выполнять всю работу в Excel. К счастью, существует способ печатать этикетки в Excel, не обращаясь к Word. В этом руководстве мы рассмотрим, как это сделать.

Скачать Практическое пособие

Вы можете загрузить рабочую книгу с набором данных и макросом, использованным для демонстрации, по ссылке ниже и использовать ее в качестве шаблона.

Печать этикеток без Word.xlsm

Это файл, содержащий этикетки для печати.

Печать этикеток без Word.pdf

Пошаговая процедура печати этикеток в Excel без Word

На печать этикеток непосредственно из Excel без использования Microsoft word, мы просто должны распечатать таблицу Excel с соответствующим размером этикетки. Мы можем преобразовать размер ячеек, который соответствует размеру этикетки. Мы будем использовать код VBA, чтобы выполнить эту задачу для нас.

Во-первых, предположим, что у нас есть следующий набор данных.

Мы собираемся сначала преобразовать все данные в ярлыки, а затем распечатать их в Excel, не прибегая к помощи Word.

Для использования Microsoft Visual Basic for Applications (VBA) в Excel вам сначала необходимо Разработчик вкладку на ленте. Нажмите здесь, чтобы узнать, как вы можете отобразить вкладку "Разработчик" на ленте После этого продолжайте выполнять шаги, которые мы продемонстрировали для печати этикеток в Excel без Word.

Шаг 1: Копирование данных на новый лист

Выбор в коде VBA здесь может работать правильно только в том случае, если записи в ячейках начинаются с ячейки A1 Итак, сначала мы должны расположить наш набор данных, содержащий все метки, таким образом. В случае, если ваш набор данных начинается в любом месте, кроме ячейки A1 как и наша, которая начиналась в камере B5 Сначала скопируйте их в новую электронную таблицу и поместите в самое начало. Она должна выглядеть примерно так.

Теперь он должен быть готов к работе с кодом VBA.

Шаг 2: Вставка кода VBA

Далее нам нужно вставить код VBA, чтобы подогнать этикетки под нужный нам размер и форму. Чтобы вставить код VBA -...

• Сначала зайдите в Разработчики на вкладке ленты.
• Затем выберите Visual Basic из Код группа.

• В результате откроется окно VBA. Теперь выберите команду Вставка вкладку в нем и выберите Модуль из выпадающего меню.

• После этого перейдите в модуль и запишите следующий код.

 'Этот код создаст метки в 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 NumberColumns 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 

🔎 Объяснение кода

В этом коде VBA есть две части или подчасти - the CreateLabel под и AskForColumn Сначала мы объясним, что происходит в подразделе AskForColumn, а затем перейдем к подразделу CreateLabel, чтобы объяснить, как работает код.

Часть 1:

Для лучшего понимания мы разделили часть на различные разделы. Посмотрите на рисунок в конце обсуждения.

👉 Раздел 1: В этом разделе объявляется имя подраздела AskForColumn .

👉 Раздел 2: Мы использовали этот раздел для объявления трех переменных - refrg, vrb и data.

👉 Раздел 3: В этом разделе мы установили значения для refrg и data.

👉 Раздел 4: На этом этапе код показывает поле ввода в электронной таблице.

👉 Раздел 5: В этом разделе Для цикл выполняется для числа, введенного в поле ввода.

👉 Раздел 6: Эта часть кода теперь изменяет размер ячеек.

👉 Раздел 7: Наконец, этот раздел очищает лишнее содержимое.

Часть 2:

Как и в предыдущей части, мы также разделили этот подраздел на различные разделы. Для визуальной части следуйте рисунку в конце обсуждения.

👉 Раздел 1: В этой части кода объявляется имя вложенного файла Createlabels .

👉 Раздел 2: Эта команда запускает предыдущий sub в данной точке кода.

👉 Раздел 3: Эта часть форматирует каждую ячейку с помощью VBA Клетки собственность.

Шаг 3: Выполнить код VBA

После ввода кода закройте окно VBA. Чтобы запустить код, выполните следующие действия.

• Во-первых, перейдите к Разработчик на вкладке ленты.
• Во-вторых, выберите Макросы из Код группа.

• Теперь в Макро выберите Createlables под Имя макроса .

• Затем нажмите на Запускайте .
• Затем выберите желаемое количество столбцов. Для демонстрации мы выбрали 3. Затем нажмите кнопку OK .

Теперь электронная таблица будет автоматически выглядеть следующим образом.

Теперь этикетки готовы к печати в Excel без использования Word.

Читать далее: Как печатать этикетки из Excel в Word (с помощью простых шагов)

Шаг 4: Установите пользовательские поля

Для печати этикеток необходимо установить правильные поля для печатной страницы. Для этого нужно выбрать правильный размер таким образом, чтобы он не влиял на положение этикеток и не нарушал ни одной этикетки на листе. Чтобы установить пользовательские поля, выполните следующие действия.

• Прежде всего, зайдите в Разметка страницы на вкладке ленты.
• Затем выберите Настройка страницы Кнопку, как показано на рисунке, можно найти в правом нижнем углу каждой группы.

• В результате Настройка страницы появится окно. Теперь перейдите к Маржи вкладку в нем.
• Затем выберите желаемую длину полей для вашей печатной страницы. Мы выбрали следующие значения.

• Как только вы закончите, нажмите на OK .

Шаг 5: Выбор параметров масштабирования для печати

Правильное масштабирование также важно для печати этикеток. Например, то, что мы делали до сих пор, приведет к печати страницы следующим образом.

Что, конечно, не является нашей целью. Поэтому нам нужно уместить лист на одной странице. Чтобы сделать это...

• Сначала перейдите в раздел предварительного просмотра печати, нажав кнопку Ctrl+P на клавиатуре.
• В левой нижней части представления вы можете найти Настройки Под ним вы найдете Масштабирование опции в конце.

• Теперь нажмите на опцию масштабирования и выберите Лист соответствия на одной странице из выпадающего меню.

На этом масштабирование этикеток будет завершено.

Читать далее: Как печатать адресные этикетки в Excel (2 быстрых способа)

Шаг 6: Печать электронной таблицы

Находясь на экране предварительного просмотра печати, нажмите кнопку Печать в верхней левой части вида.

Нажмите на него, и это приведет к печати всех этикеток в Excel без какой-либо помощи со стороны Word.

О чем следует помнить

👉 Перед выполнением кода VBA убедитесь, что все ваши метки начинаются с ячейки A1 .

👉 Перед печатью выберите правильные поля и масштаб, чтобы все этикетки поместились на странице. В противном случае некоторые могут быть обрезаны.

👉 Действия кода VBA необратимы. Поэтому перед его выполнением убедитесь, что у вас есть резервная копия необходимых данных.

Заключение

Это были шаги, которые необходимо выполнить для печати этикеток в Excel без использования или объединения почты Microsoft Word. Надеюсь, теперь вы можете печатать этикетки в Excel без Word. Надеюсь, вы нашли это руководство полезным и информативным. Если у вас есть вопросы или предложения, дайте нам знать в комментариях ниже.

Для получения других руководств, подобных этому, посетите Exceldemy.com .