VBA Excel: Wie stelle ich den Standarddrucker ein

In VBA Excel können Sie den Standarddrucker programmgesteuert festlegen. Dies kann nützlich sein, wenn Sie Dokumente oder Berichte automatisch auf einem bestimmten Drucker drucken müssen. In diesem Artikel werden wir untersuchen, wie Sie diese Aufgabe mithilfe von VBA-Code ausführen können.

Zunächst müssen Sie die Liste der verfügbaren Drucker mithilfe der PrinterDevices-Eigenschaft der WmiObject-Auflistung "Win32_Printer" ermitteln. Dann können Sie den gewünschten Drucker aus der Liste auswählen und ihn mithilfe der DefaultPrinter-Eigenschaft der WmiObject-Auflistung "Win32_Printer" als Standarddrucker festlegen.

Im folgenden Code erstellen wir zunächst ein WmiObject-Objekt, das eine Sammlung von Druckern darstellt. Dann verwenden wir eine For Each-Schleife, um alle Drucker in der Sammlung zu durchlaufen. Innerhalb der Schleife überprüfen wir die Bedingung, wenn der Name des aktuellen Druckers mit dem Namen des Druckers übereinstimmt, den wir standardmäßig festlegen möchten, dann setzen wir ihn mit der Eigenschaft DefaultPrinter.

Dim objPrinter As Object


Dim strPrinterName As String


strPrinterName = "Name des Druckers"


For Each objPrinter In GetObject("winmgmts:!\\.


oot\cimv2").ExecQuery("SELECT * FROM Win32_Printer")


If objPrinter.Name = strPrinterName Then


objPrinter.SetDefaultPrinter


End If


Next objPrinter

Nachdem der Code ausgeführt wurde, muss der Drucker mit dem angegebenen Namen standardmäßig installiert sein. Wenn Sie jetzt Dokumente oder Berichte drucken, werden diese an den ausgewählten Drucker gesendet.

Wenn Sie den Standarddrucker mithilfe von VBA-Code festlegen, können Sie den Druckkonfigurationsprozess automatisieren und Zeit sparen, insbesondere wenn Sie mit vielen Dokumenten oder Berichten arbeiten müssen.

VBA Excel: Installieren des Druckers

In Excel VBA können Sie den Standarddrucker mithilfe der Methode festlegen SetDefaultPrinter. Dies kann nützlich sein, wenn Sie das Drucken von Dokumenten auf einem bestimmten Drucker einrichten möchten, ohne dass Sie jedes Mal einen Drucker auswählen müssen.

Verwenden Sie den folgenden Code, um den Standarddrucker in Excel VBA festzulegen:

Sub SetDefaultPrinter(printerName As String)Dim wshNetwork As ObjectOn Error Resume Next' Создание объекта сетиSet wshNetwork = CreateObject("WScript.Network")' Установка принтера по умолчаниюwshNetwork.SetDefaultPrinter printerNameIf Err.Number <> 0 ThenMsgBox "Не удалось установить принтер по умолчанию!"End If' Освобождение объекта сетиSet wshNetwork = NothingEnd Sub

Um dieses Verfahren verwenden zu können, müssen Sie den Namen des Druckers als Argument übergeben. Zum Beispiel:

Sub Main()' Установка принтера "Принтер по умолчанию"SetDefaultPrinter "Принтер по умолчанию"End Sub

Wenn der Name des Druckers falsch angegeben ist oder bei der Installation des Standarddruckers ein Fehler aufgetreten ist, wird eine Fehlermeldung angezeigt.

Jetzt wissen Sie, wie Sie den Standarddrucker in Excel VBA festlegen. Dies kann nützlich sein, wenn Sie das Drucken von Dokumenten auf einem bestimmten Drucker automatisieren müssen.

Wie kann ich einen Standarddrucker in VBA Excel festlegen

In VBA (Visual Basic for Applications) für Excel können Sie Code verwenden, um den Standarddrucker zum Drucken von Dokumenten festzulegen. Dies kann nützlich sein, wenn Sie mehrere Drucker haben und einen bestimmten Drucker auswählen müssen, der aus Ihrer Makroroutine gedruckt werden soll.

Sie können die SetDefaultPrinter-Methode des WScript-Objekts verwenden, um den Standarddrucker in VBA Excel festzulegen.Network . Mit dieser Methode können Sie den Druckernamen als Standarddrucker festlegen.

Hier ist ein Beispielcode, mit dem Sie den Drucker "Drucker1" als Standarddrucker festlegen können:

Dim objNetwork As Object

Set objNetwork = CreateObject("WScript.Network")

Set objNetwork = Nothing

Um einen anderen Standarddrucker zu installieren, ersetzen Sie "Drucker1" durch den Namen des gewünschten Druckers im Code.

Sie können diese Makroprozedur in Ihrem Excel-VBA-Code aufrufen oder mit einer Schaltfläche oder einem anderen Objekt im Arbeitsblatt verknüpfen. Wenn das Makro ausgeführt wird, wird der im Code angegebene Drucker standardmäßig installiert.

Beachten Sie, dass zum Ausführen dieses Verfahrens Administratorrechte auf dem Computer erforderlich sind, um die Druckereinstellungen zu ändern.