Как да задам област за печат на последния ред в Excel?
В Excel по подразбиране ще зададе целия работен лист до последния ред с данни като област за печат. Но в този случай искам да отпечатам от колона A до колона C до последния ред с данни, както е показано на екранната снимка по-долу, има ли начини да се справя?
Задайте областта за печат на последния ред с данни чрез Print Selection
Задайте областта за печат на последния ред с данни от VBA
Задайте областта за печат на последния ред с данни чрез Print Selection
За да отпечатате селекция до последния ред с данни, можете да промените областта за печат към посочената селекция преди отпечатване.
1. държа Ctrl след това изберете колоните, които искате да отпечатате. Вижте екранна снимка:
2. кликване досие > Изпринти, след което изберете Избор на печат от Настройка раздел. Вижте екранна снимка:
Задайте областта за печат на последния ред с данни
Тук въвеждам макро код за извършване и на тази операция.
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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!