Note: The other languages of the website are Google-translated. Back to English

Как напечатать несколько копий с порядковыми номерами страниц?

Вы когда-нибудь пробовали напечатать несколько копий одного листа с порядковыми номерами страниц? Это означает, что нужно напечатать 10 копий одного листа и заполнить ячейку A1 в 1-й копии 001, во 2-й копии 002… и в 10-й копии 010. В Excel нет встроенной функции, которая может решить это задание, но в этой статье я представлю код макроса, который поможет вам быстро распечатать несколько копий с порядковым номером страницы в Excel.

Распечатать копии с разными номерами по коду VBA


стрелка синий правый пузырь Распечатать копии с разными номерами по коду VBA

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

1. Включите лист, который вы хотите напечатать, и нажмите клавиши Alt + F11, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте ниже код в Модули сценарий. Смотрите скриншот:

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 "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub

копия документа для печати с номером 1

Внимание: в коде, A1 это ячейка, в которую вы хотите поместить порядковый номер, 1 Для 10 указывает на печать 10 копий, а "'00" и я это формат последовательности, вы можете изменить их по своему усмотрению.

3. Нажмите F5 нажмите клавишу для запуска кода, и появится диалоговое окно, напоминающее вам, что распечатайте 10 копий. Нажмите OK чтобы закрыть диалоговое окно, каждая распечатанная копия имеет свой порядковый номер.
копия документа для печати с номером 2


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (15)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Что такое формат последовательности, см.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, последовательность относится к количеству копий.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Я искал такой код, но с изюминкой.
При печати 10 копий должно быть указано от id сколько это.. Напр. 001 из 010 и так далее..
Любая помощь?
Этот комментарий был сведен к минимуму модератором на сайте
Извините, я понятия не имею.
Этот комментарий был сведен к минимуму модератором на сайте
Вы нашли какую-либо помощь в этом? ищу то же самое
Этот комментарий был сведен к минимуму модератором на сайте
нажимаю f5 ничего не происходит что делать?
Этот комментарий был сведен к минимуму модератором на сайте
перейдите в пункт меню «Выполнить» и вручную нажмите «Выполнить».
Этот комментарий был сведен к минимуму модератором на сайте
Перейдите на ленту окна приложений Microsoft Visual Basic и нажмите «Выполнить».
Этот комментарий был сведен к минимуму модератором на сайте
спасибо !! это полезно, и моя работа сделана :)
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, очень полезно. Но мне нужно напечатать 2 порядковых номера на 1 странице. Может помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Извините, я не понимаю ваших требований.
Этот комментарий был сведен к минимуму модератором на сайте
как сохранить последовательность копий в один pdf-файл? Спасибо! 
Этот комментарий был сведен к минимуму модератором на сайте
Я использую это с MS Word, и когда я запускаю его, появляется окно с сообщением «Ошибка компиляции, подпрограмма или функция не определена».
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Фиш, этот код доступен в MS Excel, а не в Word.
Этот комментарий был сведен к минимуму модератором на сайте
Я работаю над контрольным списком. Столбец C и столбец M — это мои столбцы с порядковыми номерами. Я хочу, чтобы они обновлялись каждый раз, когда я печатаю, и продолжались до 950. Таким образом, один лист содержит от 1 до 60. Мне нужно будет напечатать 16 страниц, как только я выясню, как получить эти столбцы C10: C39 и M10: M39, чтобы продолжить обновление с каждой печатью. Вы можете помочь?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL