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.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!