Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Druckbefehl, der alten Standard-Drucker wieder herstellt
zurück: Probleme mit dem PostScript File (FreePDF XP) weiter: VBA-Druckerbefehl richtet Drucker als Standarddrucker ein Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ebenfalls Gast
Gast


Verfasst am:
18. März 2009, 16:50
Rufname:

Druckbefehl, der alten Standard-Drucker wieder herstellt - Druckbefehl, der alten Standard-Drucker wieder herstellt

Nach oben
       Version: Office 2003

Hi,
ich habe ein Problem mit einem Druckerbefehl. Eigentlich dürft es nicht so schwer sein, nur ist es etwas kompliziert zu erklären.
Ich habe folgenden Befehl:
Code:
ActivePrinter = "Drucker1"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
ActivePrinter = "Drucker2"


Wenn ich diesen ausführe, wird die Datei auf Drucker1 gedruckt. die letzte Zeile -ActivePrinter = "Drucker2"- richtet Drucker2 wieder als Standarddrucker ein.

Das Problem:
Der Befehl richtet immer den zuerst genannten Drucker (hier: Drucker1) als Standarddrucker ein. Wenn ich also die letzte Zeile weglassen würde, würde Drucker1 Standarddrucker bleiben. Wenn ich also die Datei an einem PC bearbeite, der einen anderen Standarddrucker hat, wird dieser durch "Drucker1" ersetzt.
Zu Lösung ist mir eben bisher nur eingefallen, mit der Abschlusszeile "ActivePrinter=Drucker2"" den ursprünglichen Durcker wieder einzurichten.

Die Frage:
Geht das nicht allgemeiner? Bspw. mit einem Befehl, der nach dem drucken wieder den ursprünglichen Standarddrucker einrichtet? Mit meiner Lösung kann ich ja immer nur stur einen spezifischen Drucker angeben.

Ich hoffe, ich konnte das Problem einigermaßen verständlich erklären.
Wäre echt gut, wenn mir jemand helfen könnte! Danke schonmal,

grüßle
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
18. März 2009, 16:56
Rufname:
Wohnort: Leipzig

AW: Druckbefehl, der alten Standard-Drucker wieder herstellt - AW: Druckbefehl, der alten Standard-Drucker wieder herstellt

Nach oben
       Version: Office 2003

Hallo Gast,

ja, Du hast recht. Ich wollte das neulich schon antworten, ist mir dann aus dem Auge gekommen.

Besser ist, Du füllst einfach den vorher eingestellten Drucker in eine Variable. Dazu musst Du nicht wissen, welcher es ist (das funktioniert sogar, falls bereits Drucker1 eingestellt war).

Dann wird gedruckt, danach wird der Drucker wieder auf den aus der Variable gesetzt. Das funktioniert zuverlässig:
Code:
Sub Test()

    Dim strAltDrucker As String
   
    strAltDrucker = ActivePrinter   'Hier wird der vorgefundene Drucker "konserviert"
   
    ActivePrinter = "Drucker1"      'Danach wird umgestellt
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    ActivePrinter = strAltDrucker   'Der vorgefundene Zustand wird wiederhergestellt

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Ebenfalls Gast
Gast


Verfasst am:
18. März 2009, 17:07
Rufname:


AW: Druckbefehl, der alten Standard-Drucker wieder herstellt - AW: Druckbefehl, der alten Standard-Drucker wieder herstellt

Nach oben
       Version: Office 2003

Donnerwetter, nach 6min ne Antwort. Und das läuft auch noch wunderbar. Das hät ich mir nicht träumen lassen.

Ich danke dir vielmals!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word VBA Programmierung (Makros): Alten Briefkopf (word97) ändern, aber wie? 9 BillPC 160 22. Nov 2013, 17:36
BillPC Alten Briefkopf (word97) ändern, aber wie?
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro für Änderung Standarddrucker 1 Onkel Uli 143 17. Jan 2013, 11:27
r.mueller Makro für Änderung Standarddrucker
Keine neuen Beiträge Word VBA Programmierung (Makros): Worddateien aus einem alten verzeichnis öffnen sehr langsam 0 BADwolf 608 01. Jun 2012, 13:36
BADwolf Worddateien aus einem alten verzeichnis öffnen sehr langsam
Keine neuen Beiträge Word VBA Programmierung (Makros): Word 2010 Dokument nicht mit Standard-Drucker drucken 5 seclusion 3363 18. Apr 2011, 12:14
mumpel Word 2010 Dokument nicht mit Standard-Drucker drucken
Keine neuen Beiträge Word VBA Programmierung (Makros): Userform: Combobox - Druckerliste - Standarddrucker 4 Sw4rm 2378 14. Jul 2010, 10:54
Sw4rm Userform: Combobox - Druckerliste - Standarddrucker
Keine neuen Beiträge Word Hilfe: Standarddrucker nach Druck auf anderen wieder zurückstellen 1 Gast 1634 30. Jun 2010, 16:16
Gast Standarddrucker nach Druck auf anderen wieder zurückstellen
Keine neuen Beiträge Word Formate: word 2003 kann keine alten Dateien öffnen 4 fontane 1285 01. Jun 2010, 18:18
Gast word 2003 kann keine alten Dateien öffnen
Keine neuen Beiträge Word VBA Programmierung (Makros): Standarddrucker wiederherstellen 2 wasi64 1947 14. Okt 2009, 09:16
wasi64 Standarddrucker wiederherstellen
Keine neuen Beiträge Word Hilfe: aktualisierte fassung mit der alten vergleichen? 0 fischersfritze 319 23. Sep 2009, 16:33
fischersfritze aktualisierte fassung mit der alten vergleichen?
Keine neuen Beiträge Word Formate: Ein Dokument von alten Formatvorlagen befreien 3 schokoline 1503 20. Aug 2009, 17:53
schokoline Ein Dokument von alten Formatvorlagen befreien
Keine neuen Beiträge Word Hilfe: Dokument ändert sich bei Druckbefehl 0 Marc.Krieger 1289 22. Jul 2009, 16:47
Marc.Krieger Dokument ändert sich bei Druckbefehl
Keine neuen Beiträge Word VBA Programmierung (Makros): VBA-Druckerbefehl richtet Drucker als Standarddrucker ein 2 Gast1066 2620 18. März 2009, 17:17
Lisa VBA-Druckerbefehl richtet Drucker als Standarddrucker ein
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project