Jak ustawić obszar drukowania na ostatni wiersz w programie Excel?

W programie Excel domyślnie ustawia cały arkusz roboczy do ostatniego wiersza z danymi jako obszarem drukowania. Ale w tym przypadku chcę drukować od kolumny A do kolumny C do ostatniego wiersza z danymi, jak pokazano na poniższym zrzucie ekranu, czy są jakieś sposoby, aby sobie z tym poradzić?

Ustaw obszar drukowania na ostatni wiersz z danymi za pomocą opcji Drukuj wybór

Ustaw obszar wydruku na ostatni wiersz z danymi według VBA

---

Ustaw obszar drukowania na ostatni wiersz z danymi za pomocą opcji Drukuj wybór

Aby wydrukować zaznaczenie do ostatniego wiersza z danymi, możesz zmienić obszar wydruku na określony przed wydrukowaniem.

1. Utrzymać Ctrl następnie wybierz kolumny, które chcesz wydrukować. Zobacz zrzut ekranu:

2. kliknij filet > , a następnie wybierz Drukuj wybór z Oprawa Sekcja. Zobacz zrzut ekranu:

---

Ustaw obszar wydruku na ostatni wiersz z danymi

Tutaj wprowadzam kod makra, aby wykonać tę operację.

1. Włącz używany arkusz, naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł. Zobacz zrzut ekranu.

2. Wklej poniższy kod do pliku Moduł skrypt i naciśnij F5 klucz do uruchomienia.

VBA: Ustaw obszar na ostatni wiersz

'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. Pojawi się okno dialogowe przypominające o wyborze zakresu kolumn, których chcesz użyć. Zobacz zrzut ekranu:

4. kliknij OK, obszar drukowania został ustawiony.