Как распечатать несколько копий с последовательной нумерацией страниц?
Возникала ли у вас когда-нибудь ситуация, когда нужно распечатать несколько копий одного и того же листа, но так, чтобы каждая из них имела уникальный порядковый номер? Например, вам может понадобиться 10 копий формы, где в ячейке A1 на первой распечатке будет указано «001», на второй — «002» и так далее до «010» на последней. Такой подход особенно полезен при создании нумерованных счетов, билетов, бланков заказов или любых других партий документов, где важно отслеживать отдельные копии для организации или аудита.
К сожалению, Excel не предоставляет встроенной функции для автоматической печати нескольких копий с последовательно увеличивающимися числами в заданной ячейке. Ручное редактирование листа перед каждой распечаткой непрактично — особенно при работе с большим количеством копий. Однако с помощью простого макроса VBA вы можете автоматизировать этот процесс, чтобы сэкономить время, снизить вероятность ошибок и гарантировать, что каждая копия будет пронумерована строго по требованиям.
Печать копий с разными номерами с помощью кода VBA
Использование формул Excel и ручная печать
Печать копий с разными номерами с помощью кода VBA
Печать копий с разными номерами с помощью кода VBAЭтот метод использует макрос VBA для печати нескольких копий листа, автоматически вставляя в указанную ячейку последовательные номера при каждой распечатке.
Выполните следующие шаги, чтобы быстро создать и запустить макрос:
1. Сначала активируйте лист, который хотите распечатать. Затем нажмите Alt + F11, чтобы открыть окно редактора Microsoft Visual Basic for Applications (VBA).
2. В редакторе VBA выберите Вставка > Модуль, чтобы добавить новый модуль. Скопируйте и вставьте приведённый ниже код в окно модуля. (См. снимок экрана для наглядности.)
VBA: Печать копий с последовательной нумерацией страниц
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
Примечания и советы по параметрам:
- В коде ссылка A1 указывает на ячейку, в которую будет помещён номер последовательности. Если вы предпочитаете другую ячейку, например B2, обновите ссылку соответствующим образом.
- 1 To10 задаёт количество копий, которые нужно распечатать (в данном примере — 10). Вы можете заменить 10 на любое другое положительное целое число по необходимости.
- «'00» & I форматирует номер последовательности так, чтобы он отображался как трёхзначное число с ведущими нулями (например, 001, 002, 003). Если вам нужен другой формат (например, начиная с 100 или без ведущих нулей), просто скорректируйте строку соответствующим образом.
- Перед запуском макроса убедитесь, что ваш лист готов и в целевой ячейке отсутствуют данные, которые могут быть перезаписаны. Рекомендуем сохранить книгу перед продолжением — действия макроса нельзя отменить.
3. При активном листе нажмите F5 или кнопку Выполнить в редакторе VBA, чтобы запустить код. Появится диалоговое окно с уведомлением, например: «Будет распечатано 10 копий с последовательными числами». Нажмите ОК, чтобы продолжить — макрос автоматически пройдёт по каждому номеру, вставит последовательность в указанную ячейку и распечатает лист. Каждая распечатка будет иметь уникальный номер в соответствии с вашими настройками.
Использование формул Excel и ручная печать
Если вам нужно распечатать всего несколько копий или вы предпочитаете не использовать макросы, воспользуйтесь маркером заполнения Excel для создания последовательных номеров, а затем вручную распечатайте каждую строку. Этот метод идеально подходит для небольших партий, где каждая этикетка, бейдж или форма должна иметь уникальный номер.
1. В новом столбце (например, в столбце A) введите начальный номер последовательности в первую ячейку, например 001. Для этого введите следующую формулу в ячейку A1:
=TEXT(ROW(A1),"000")2. Перетащите маркер заполнения вниз, чтобы скопировать формулу на столько строк, сколько копий вы хотите распечатать (например, до строки 10 — для 10 копий). Каждая ячейка будет отображать следующий последовательный номер с ведущими нулями.
3. Скопируйте всю строку или набор данных на отдельный лист для каждой копии и используйте функцию Печать в Excel для постраничной печати. Этот ручной метод идеален для небольших партий и обеспечивает максимальный визуальный контроль перед отправкой на печать.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек