Per Makro Druckerschacht wählen

Question

Hallo Helfer,
ich wechsele an meinem Arbietsplatz öfter mal den Drucker, um auf unserem Firmenpapier zu drucken. Das möchte ich in Zukunft per Makro vereinfachen, dazu habe ich das folgende Makro aufgezeichnet:

Sub OKI_Schacht1()
'
' Makro am 11.05.2011 von wh aufgezeichnet
Application.ActivePrinter = "\\dc2\E1-BBS-OKI auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\dc2\E1-BBS-OKI auf Ne05:", Collate:=True
End Sub

Während der Aufzeichnung habe ich aber auch unter "Eigenschaften" den Papierschacht von "Standard" auf "Schacht1" geändert, gedruckt wurde in dem Moment auch auf dem richtigen Papier, diese Änderung wurde aber nicht mit aufgezeichnet. Wie kann ich das manuell ergänzen?

mfg
Wolfgang

Answer 1

Hallo Wolfgang,

dass ein Wechsel des Schachtes in einem Makro nicht mit aufgezeichnet wird, wurde schon mehrfach festgestellt und ist meines Wissens auch nicht zu ändern.

In einem Dokument bzw. einer Dokumentenvorlage werden aber eigentlich auch die per 'Drucker einrichten' vorgenommenen Einstellungen gespeichert, auch sowas wie Blatt 1 auf 'Schacht 1', der Rest auf 'Standard'. Versuche es erst einmal hinzubekommen, dass das funktioniert wenn der OKI als Standard-Drucker verwendet wird, dann klappt es eventuell auch mit einem Makro zum Wechsel des Druckers, wenn der OKI später nicht mehr der Standard-Drucker ist.

Gruß
Kalle

Answer 2

Hallo Kalle,

der OKI ist nicht der Standarddrucker und soll es auch nicht werden, auch nicht für das einzelne Dokument.
Am Ende des Makros hatte ich hier noch eine Zeile weggelassen, die den Drucker wieder deshalb wieder zurücksetzt.
Also schade, dann wird das nichts, trotzdem vielen Dank für die Info.

mfg
Wolfgang

Answer 3

Hallo Wolfgang,

vielleicht hilft dir ja das hier weiter: LINK

Gruß

M.O.

Answer 4

Hallo,
probier ich morgen. Jetzt habe ich andere Termine.
Danke
mfg
Wolfgang

Answer 5

Hallo,

Danke für den Link. In Excel lass ichs.

Für Word ist dies sehr gut:
download.chip.eu/de/Word-Print-Buttons_6909101.html

mfg
Wolfgang