Office: Netzwerk Drucker auswählen und ausdrucken!

Hallo Leute, wollte meine Daten mit dem untenstehenden Code auf einem Netzwerkducker ausdrucken. Das funktioniert leider nur wenn ich den Standard Drucker von meinem PC verwende.

Was müsste geändert werden am Code ?

Vielen Dank für eure Mithilfe!

Gruß
Wolf

PHP:

         Sub drucken_farbe()
Dim sDruckerAktuell As String
Aktuellen Drucker merken
sDruckerAktuell = Application.ActivePrinter
Application.ActivePrinter = "OKI C5950 auf Ne01:"
Sheets(Array("Deckblatt", "Objektdaten")).PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = sDruckerAktuell
End Sub


:)

 

Hallo Wolf,

[ungetestet] würde ich diese beiden Zeilen tauschen:

Code:

in

Code:

Du füllst die Variable und deklarierst erst im nächsten Schritt den Netzwerkdrucker. Vielleicht ist das der Fehler?

Viele Grüße
Hauke

 

Hallo Hauke,

Danke mal für den Tipp, kann das leider erst am Montag ausprobieren.

Gruß Wolf

 

Das passt schon so.

Die Variable sDruckerAktuell speichert den aktuellen Druckernamen zwischen,
um ihn dann nach dem Druck wieder zum aktuellen Drucker zu machen.

Denn mit dem Standard-Drucker funktioniert es ja.

Überprüfe die Netzwerk-Drucker-Bezeichnung.

 

jo danke, ich werde es testen.......