Wie setze ich den Druckbereich auf die letzte Zeile in Excel?
In Excel wird standardmäßig das gesamte Arbeitsblatt bis zur letzten Zeile mit Daten als Druckbereich festgelegt. Aber in diesem Fall möchte ich von Spalte A nach Spalte C bis zur letzten Zeile mit den Daten wie im folgenden Screenshot drucken. Gibt es Möglichkeiten, damit umzugehen?
Stellen Sie den Druckbereich durch Druckauswahl auf die letzte Zeile mit Daten ein
Stellen Sie den Druckbereich auf die letzte Zeile mit Daten von VBA ein
Stellen Sie den Druckbereich durch Druckauswahl auf die letzte Zeile mit Daten ein
Um eine Auswahl bis zur letzten Zeile mit Daten zu drucken, können Sie den Druckbereich vor dem Drucken auf die angegebene Auswahl ändern.
1. Halt Ctrl Wählen Sie dann die Spalten aus, die Sie drucken möchten. Siehe Screenshot:
2 Klicken Reichen Sie das > Druckenund dann wählen Auswahl drucken von dem Rahmen Sektion. Siehe Screenshot:
Stellen Sie den Druckbereich auf die letzte Zeile mit Daten ein
Hier stelle ich einen Makrocode vor, um auch diesen Vorgang auszuführen.
1. Aktivieren Sie das verwendete Blatt und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot.
2. Fügen Sie den folgenden Code in das ein Modul Skript und drücken Sie F5 Schlüssel zum Ausführen.
VBA: Bereich auf letzte Zeile setzen
'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. Ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, den gewünschten Spaltenbereich auszuwählen. Siehe Screenshot:
4 Klicken OKwurde der Druckbereich eingestellt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!