Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie Drucken mehrerer Auswahl auf einer Seite in Excel?

Wenn Sie ein großes Arbeitsblatt haben, das viele Daten enthält, und jetzt möchten Sie einige ausgewählte Bereiche drucken, die auf einer Seite nicht zusammenhängend sind, so dass Sie viel Papier sparen können. Excel bietet die Legen Sie Druck Arear fest Funktion für uns, mehrere Auswahlen gleichzeitig zu drucken, aber jeder ausgewählte Bereich wird separat auf eine Seite gedruckt. In diesem Artikel wird erläutert, wie mehrere nicht kontinuierliche Auswahlen auf einer Seite gedruckt werden.

Drucken Sie mehrere Auswahlen aus einem Arbeitsblatt auf einer Seite mit VBA-Code

Drucken Sie mit Kutools for Excel mehrere Auswahlen aus einem oder mehreren Arbeitsblättern auf einer Seite


Drucken Sie mehrere Auswahlen aus einem Arbeitsblatt auf einer Seite mit VBA-Code


Wenn Sie mehrere ausgewählte nicht zusammenhängende Auswahlen eines Arbeitsblatts auf einer Seite drucken möchten, können Sie den folgenden VBA-Code verwenden:

1. Drücken Sie Ctrl Taste, um die Bereiche auszuwählen, die Sie drucken möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Drucken Sie mehrere Auswahlen auf eine Seite

Sub PrintOutRange()
'Update 20150528
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Dann drücken F5 Taste, um diesen Code auszuführen, und Ihre ausgewählten Bereiche werden sofort gedruckt, und sie werden auf einer einzigen Seite gedruckt.


Drucken Sie mit Kutools for Excel mehrere Auswahlen aus einem oder mehreren Arbeitsblättern auf einer Seite

Der obige Code kann Ihnen nur helfen, die ausgewählten Bereiche aus einem Arbeitsblatt zu drucken. Wenn Sie möchten, dass mehrere Arbeitsblätter auf einer Seite gedruckt werden, funktioniert der obige Code nicht. Bitte mach dir keine Sorgen, hier kann ich dir ein praktisches Werkzeug vorstellen - Kutools for ExcelMit seinen Drucken Sie den Mehrfachauswahl-Assistenten Mit dem Dienstprogramm können Sie die Auswahl aus einem Arbeitsblatt oder mehreren Arbeitsblättern gleichzeitig auf eine Seite drucken.

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Excel, machen Sie bitte folgende Schritte:

1. Klicken Sie Unternehmen > Druckindustrie > Drucken Sie den Mehrfachauswahl-Assistenten, siehe Screenshot:

doc Druck mehrere Auswahlen 1

2. In dem Drucken Sie den Mehrfachauswahl-Assistenten, klickendoc Schaltfläche hinzufügen Klicken Sie auf, um den Bereich auszuwählen, den Sie drucken möchten, und fügen Sie den zu druckenden Bereich einzeln in das Listenfeld Bereiche zum Drucken ein (Sie können die Bereiche aus einem Arbeitsblatt oder mehreren Arbeitsblättern auswählen) doc Schaltfläche entfernen Mit der Schaltfläche können Sie die Bereiche entfernen, die Sie nicht benötigen, siehe Screenshot:

doc Druck mehrere Auswahlen 2

3. Nachdem Sie die Auswahl in das Listenfeld eingefügt haben, klicken Sie bitte auf Weiter >> Drücken Sie die Taste, um zu Schritt 2 des Assistenten zu wechseln, geben Sie die Druckeinstellungen nach Bedarf an, und Sie können zwischen den ausgewählten Bereichen eine leere Zeile hinzufügen Fügen Sie zwischen den Bereichen eine leere Zeile hinzu Option, siehe Screenshot:

doc Druck mehrere Auswahlen 3

4. Dann klick weiter Weiter >> Geben Sie in Schritt 3 des Assistenten die Aktion für das temporäre Arbeitsblatt ein. Sie können das Arbeitsblatt aktivieren, aber nicht drucken, das Arbeitsblatt drucken und es behalten oder das Arbeitsblatt drucken und es löschen. Siehe Screenshot:

doc Druck mehrere Auswahlen 4

5. Klicken Sie Fertigstellung Alle ausgewählten Bereiche wurden als verknüpfte Bildobjekte in ein neues Arbeitsblatt eingefügt. Sie können sie im Arbeitsblatt ziehen und neu anordnen. Siehe Screenshot:

doc Druck mehrere Auswahlen 5

6. Wenn Sie dieses neue Arbeitsblatt drucken, werden die Bereiche nach Bedarf auf einer einzelnen Seite gedruckt.

Klicken Sie hier, um mehr über dieses Dienstprogramm zum Drucken mehrerer Auswahlassistenten zu erfahren.

Download und kostenlose Testversion Kutools für Excel Now!


Demo: Drucken Sie mit Kutools für Excel mehrere Auswahlen aus einem oder mehreren Arbeitsblättern auf einer Seite

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)