VBA-Code für die Druckschaltfläche in Excel (5 Beispiele)

Hugh West

16-10-2023 Makros & Excel VBA
  • Teile Das
Hugh West

Wenn wir in unserem Excel-Arbeitsblatt eine benutzerdefinierte Druck-Schaltfläche einrichten können, kann das Drucken von Blättern sehr benutzerfreundlich und zeitsparend sein. Mit Hilfe von VBA-Makros In diesem Artikel finden Sie 5 einfache Makros, die Sie verwenden können VBA Code für die Druckschaltfläche in Excel.

Download Arbeitsbuch Praxis

Sie können die kostenlose Excel-Vorlage von hier herunterladen und selbst üben.

VBA-Code zum Erstellen einer Druckschaltfläche.xlsm

5 Beispiele für die Verwendung von VBA-Code für die Druckschaltfläche in Excel

Machen wir uns zunächst mit unserem Datensatz vertraut, der einige Verkäuferin Verkäufe in verschiedenen Regionen .

1. verwenden Sie VBA-Code, um eine Druckschaltfläche für das Dialogfeld "Drucken" in Excel zu erstellen

Zuerst erstellen wir eine Schaltfläche "Drucken und wird dann Codes dafür schreiben.

Schritte:

  • Klicken Sie auf wie folgt: Entwickler >> einfügen. >> Schaltfläche Box.

Bald darauf erhalten Sie eine Pluszeichen (+) in Ihrem Cursor .

  • Ziehen dass Cursor nach Ihren Wünschen Tastengröße und nach einer Weile, eine Dialogfeld namens Makro zuweisen wird sich öffnen.

  • Geben Sie eine Name und Presse Neu .

A VBA Fenster erscheint.

  • Geben Sie dann die folgenden Codes ein. 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Jetzt zurückgehen zu Ihrem Blatt .

Code-Aufschlüsselung

  • Hier habe ich eine Unter Verfahren, Dialogfenster .
  • Dann verwendet Dialoge (xlDialogPrint).Show zum Öffnen des Dialogfeld "Drucken .

Die Schaltfläche wird erstellt.

  • Klicken Sie mit der rechten Maustaste auf . über die Taste und wählen Sie Text bearbeiten von der Kontextmenü um den Namen der Schaltfläche zu ändern.

  • Später, nur Typ die Name und anklicken. Ihr Maus überall außerhalb der Schaltfläche .

Drücken Sie dann einfach die Schaltfläche .

Dann erhalten Sie die Dialogfeld "Drucken Wenn Sie möchten, können Sie Drucken es jetzt.

Wenn Sie keine haben Drucker In diesem Moment können Sie Speichern Sie es als PDF . zur weiteren Verwendung oder zur Drucken später.

  • Jetzt drücken OK .

  • Geben Sie in diesem Moment einfach eine Name und drücken Sie Speichern Sie .

Hier ist die gedruckte PDF .

Lesen Sie mehr: Anpassen der Druckeinstellungen in Excel (8 geeignete Tricks)

2. verwenden Sie VBA-Code, um eine Druckschaltfläche für das aktive Blatt zu erstellen

Hier werden wir Folgendes verwenden VBA zu drucken eine Aktiv Blatt .

Schritte:

  • Folgen Sie der erster Zweischritt aus dem ersten Abschnitt zur Erstellung der Taste und Ein Makro zuweisen .
  • Schreiben Sie eine Makro Name und drücken Sie Neu .

Kurz darauf wurde eine VBA öffnet sich ein Fenster.

  • Dann schreiben. die folgenden Codes Darin... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • Später, zurückgehen zum

Code-Aufschlüsselung

  • Hier habe ich eine Unter Verfahren, ActiveSheet .
  • Dann verwendet Ausdrucken zu Wählen Sie die aktives Blatt und drucken es.
  • Jetzt gerade Presse die Schaltfläche .

A Dialogfeld namens Druckausgabe speichern unter wird sich öffnen.

  • Geben Sie eine Name und drücken Sie Speichern Sie .

Dann erhalten Sie die gedruckte PDF .

Sie können ganz einfach die Drucker wenn Sie es brauchen.

  • Klicken Sie auf auf Datei neben dem Startseite

  • Wählen Sie dann Drucken Option und anklicken. über die Drop-down wählen Sie eine Drucker .

Lesen Sie mehr: Wie man alle Blätter in Excel druckt (3 Methoden)

3 VBA-Code zum Erstellen einer Druckschaltfläche für ausgewählte Blätter in Excel anwenden

Wenn Sie möchten, dass Drucken spezifisch ausgewählte Blätter dann ist es auch möglich, mit VBA .

Schritte:

  • Folgen Sie der erster Zweischritt aus dem ersten Abschnitt zur Erstellung der Taste und zuweisen. a Makro .
  • Dann schreiben Sie eine Makro Name und drücken Sie Neu .

Kurz darauf wurde eine VBA öffnet sich ein Fenster.

  • Später, Typ die folgenden Codes Darin... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Dann zurückgehen zu Ihrem Blatt .

Code-Aufschlüsselung

  • Hier habe ich eine Unter Verfahren, SelectedSheets .
  • Dann verwendet AktivesFenster zu Blatt auswählen von der aktiv Excel Fenster .
  • Als Nächstes werden verwendet Ausdrucken zum Drucken mehrere ausgewählt Blätter .
  • Jetzt Blätter auswählen und drücken Sie die Taste Schaltfläche "Drucken Ich habe zwei Blätter ausgewählt.

  • Geben Sie eine Name für die PDF und drücken Sie Speichern Sie .

Die PDF Datei hat t zwei Seiten für die zwei Blätter .

Lesen Sie mehr: Drucken bestimmter Blätter mit VBA-Makro in Excel (4 Möglichkeiten)

Ähnliche Lektüre:

  • Excel-Blatt im A4-Format drucken (4 Möglichkeiten)
  • Kopfzeile in Excel beim Drucken beibehalten (3 Möglichkeiten)
  • Excel VBA: Druckbereich dynamisch festlegen (7 Möglichkeiten)
  • Excel-Blatt mit Linien drucken (3 einfache Möglichkeiten)
  • Drucken eines Diagramms in Excel (5 Möglichkeiten)

4 Excel VBA einbetten, um eine Druckschaltfläche für ein bestimmtes Blatt mit einem ausgewählten Bereich zu erstellen

Hier werden wir eine Schaltfläche "Drucken zu drucken a ausgewähltes Sortiment von einer spezifisches Blatt .

Schritte:

  • Folgen Sie der erster Zweischritt aus dem ersten Abschnitt zur Erstellung der Taste und weisen Sie ein Makro zu.
  • Schreiben Sie eine Makro Name und drücken Sie Neu .

Kurz darauf wurde eine VBA öffnet sich ein Fenster.

  • Dann schreiben. die folgenden Codes - 
 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub
  • Gehen Sie später auf Ihr Blatt zurück.

Code-Aufschlüsselung

  • Hier habe ich eine Unter Verfahren, SpecificSheetnRange .
  • Dann verwendet Mit Anweisung an Wählen Sie a spezifisch
  • Nächste, PrintArea = "B2:D11".PrintOut wird Wählen Sie die Bereich von der spezifisches Blatt und wird Drucken es.
  • Jetzt gerade Presse die Schaltfläche "Drucken .

  • Einstellen Name für die PDF und drücken Sie Speichern Sie .

Es ist die gedruckt spezifisches Blatt.

Lesen Sie mehr: Excel VBA: Druckbereich für mehrere Bereiche festlegen (5 Beispiele)

5 Excel VBA einbetten, um eine Druckschaltfläche für das aktive Blatt mit ausgewähltem Bereich zu erstellen

Außerdem können Sie einen Bereich auswählen von der aktives Blatt und kann eine Schaltfläche "Drucken zu drucken es mit VBA .

Schritte:

  • Folgen Sie der erster Zweischritt aus dem ersten Abschnitt zur Erstellung der Taste und weisen eine Makro .
  • Schreiben Sie später eine Makro Name und drücken Sie Neu .

Kurz darauf wurde eine VBA öffnet sich ein Fenster.

  • In der VBA Fenster, schreiben. die folgenden Codes - 
 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub
  • Dann zurückgehen zu Ihrem Blatt .

Code-Aufschlüsselung

  • Hier habe ich eine Unter Verfahren, ActiveSheetnRange .
  • Dann verwendet Bereich("B2:D11").PrintOut zu Wählen Sie a Bereich und drucken.
  • Drücken Sie die Schaltfläche "Drucken .

  • Geben Sie eine Name und drücken Sie Speichern Sie .

Dann erhalten Sie die gedruckte Reihe .

Lesen Sie mehr: Excel-Schaltfläche zum Drucken bestimmter Blätter (mit einfachen Schritten)

Schlussfolgerung

Ich hoffe, die oben beschriebenen Verfahren sind gut genug, um VBA-Code für die Druckbutton Fragen können Sie gerne im Kommentarbereich stellen, und bitte geben Sie mir Feedback.

Vorherigen Post Wie man die Gleichung einer Trendlinie in Excel findet (3 geeignete Methoden)
Nächster Beitrag So verwenden Sie VLOOKUP, wenn die Zelle ein Wort im Text in Excel enthält

Hugh West ist ein äußerst erfahrener Excel-Trainer und -Analyst mit über 10 Jahren Erfahrung in der Branche. Er verfügt über einen Bachelor-Abschluss in Rechnungswesen und Finanzen sowie einen Master-Abschluss in Betriebswirtschaft. Hugh hat eine Leidenschaft für das Unterrichten und hat einen einzigartigen Lehransatz entwickelt, der leicht zu befolgen und zu verstehen ist. Seine Expertenkenntnisse in Excel haben Tausenden von Studenten und Berufstätigen auf der ganzen Welt geholfen, ihre Fähigkeiten zu verbessern und in ihrer Karriere herausragende Leistungen zu erbringen. Über seinen Blog teilt Hugh sein Wissen mit der Welt und bietet kostenlose Excel-Tutorials und Online-Schulungen an, um Einzelpersonen und Unternehmen dabei zu helfen, ihr volles Potenzial auszuschöpfen.