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

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

Во многих случаях вам может потребоваться повторить строку заголовка поверх каждой распечатанной страницы в Excel. Но как повторить строки поверх каждой распечатки, кроме последней страницы? Эта статья покажет вам, как этого добиться.

Повторять строки поверх каждой распечатки, кроме последней страницы с кодом VBA


Повторять строки поверх каждой распечатки, кроме последней страницы с кодом VBA

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

1. Откройте рабочий лист, в котором нужно повторить строки сверху, кроме последней страницы, затем нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

VBA: повторять строки поверх каждой распечатки, кроме последней страницы в Excel

Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xPages > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
            ActiveSheet.PrintOut from:=1, To:=xPages - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xPages, To:=xPages
        End With
    End If
End Sub

3. нажмите F5 ключ для запуска кода, затем Kutool для Excel появится диалоговое окно, выберите диапазон строк, который необходимо повторять поверх каждой распечатки, кроме последней страницы, а затем нажмите кнопку OK кнопка. Смотрите скриншот:

Затем все страницы этого рабочего листа распечатываются с повторением определенной строки сверху, кроме последней страницы.


Статьи по теме:


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,


Как я могу изменить код для экспорта файла в pdf, используя те же принципы, вместо печати документа?


спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Да... Вам придется экспортировать в два .pdf с разными именами, а затем объединить эти два pdf (в Adobe?)... Я в одной лодке. Есть ли способ автоматизировать этот последний шаг (через Excel?)? Последняя страница моего экспортированного PDF-файла не требует заголовка.
Этот комментарий был сведен к минимуму модератором на сайте
Да... Вам придется экспортировать в два .pdf с разными именами, а затем объединить эти два pdf (в Adobe?)... Я в одной лодке. Есть ли способ автоматизировать этот последний шаг (через Excel?)? Последняя страница моего экспортированного PDF-файла не требует заголовка.
Этот комментарий был сведен к минимуму модератором на сайте
В старом приложении Lotus 1-2-3 это легко выполнялось путем вставки двойного двоеточия (::) в самую верхнюю левую ячейку (A1) листа, где вы не хотели повторять заголовок или строку. Почему Microsoft не может сделать что-то столь же простое? Это должен быть встроенный процесс, который можно включить одним щелчком мыши. К чему все эти сложности????
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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