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ă.