Как установить область печати на последнюю строку в Excel?
В Excel по умолчанию он устанавливает весь лист до последней строки с данными в качестве области печати. Но в этом случае я хочу печатать из столбца A в столбец C до последней строки с данными, как показано на скриншоте ниже, есть ли способы справиться с этим?
Установить область печати на последнюю строку с данными с помощью выбора печати
Установить область печати на последнюю строку с данными VBA
Установить область печати на последнюю строку с данными с помощью выбора печати
Чтобы напечатать выбор до последней строки с данными, вы можете изменить область печати на указанный выбор перед печатью.
1. Держать Ctrl затем выберите столбцы, которые хотите распечатать. Смотрите скриншот:
2. Нажмите Файл > Печать / PDF, а затем выберите Распечатать выбор из настройка раздел. Смотрите скриншот:
Установить область печати на последнюю строку с данными
Здесь я также представляю код макроса для выполнения этой операции.
1. Включите используемый лист, нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот.
2. Вставьте приведенный ниже код в Модули сценарий и нажмите F5 ключ для запуска.
VBA: установить область в последнюю строку
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Появится диалоговое окно, напоминающее вам о выборе диапазона столбцов, который вы хотите использовать. Смотрите скриншот:
4. Нажмите OK, область печати настроена.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!