Cum se setează zona de imprimare pe ultimul rând în Excel?
În Excel, în mod implicit, va seta întreaga foaie de lucru până la ultimul rând cu date ca zonă de imprimare. Dar, în acest caz, vreau să imprim de la coloana A la coloana C până la ultimul rând cu datele prezentate mai jos, există vreo modalitate de a le gestiona?
Setați zona de imprimare pe ultimul rând cu date prin selecția tipăririi
Setați zona de imprimare pe ultimul rând cu date de VBA
Setați zona de imprimare pe ultimul rând cu date prin selecția tipăririi
Pentru a imprima o selecție pe ultimul rând cu date, puteți schimba zona de imprimare la selecția specificată înainte de a imprima.
1. ține Ctrl apoi selectați coloanele pe care doriți să le imprimați. Vedeți captura de ecran:
2. clic Fișier > , apoi alegeți Selecție tipărire de la reglaj secțiune. Vedeți captura de ecran:
Setați zona de imprimare pe ultimul rând cu date
Aici introduc un cod macro pentru a face și această operațiune.
1. Activați foaia pe care o utilizați, apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră și faceți clic pe Insera > Module. Vezi captura de ecran.
2. Lipiți codul de mai jos în Module script și apăsați F5 cheie pentru a rula.
VBA: setați zona pe ultimul rând
'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. Apare un dialog pentru a vă reaminti să selectați gama de coloane pe care doriți să o utilizați. Vedeți captura de ecran:
4. clic OK, zona de imprimare a fost setată.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
