Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA-Druckerbefehl richtet Drucker als Standarddrucker ein
zurück: Druckbefehl, der alten Standard-Drucker wieder herstellt weiter: Fallunterscheidung "0,00" oder "<0,00" Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast1066
Gast


Verfasst am:
13. März 2009, 15:11
Rufname:

VBA-Druckerbefehl richtet Drucker als Standarddrucker ein - VBA-Druckerbefehl richtet Drucker als Standarddrucker ein

Nach oben
       Version: Office 2003

Hi.
Ich habe ein Formular erstellt und es am Ende mit einem CommandButton versehen. Bei der Betätigung dieses Buttons wird das Formular ausgedruckt.
Ich habe mir den Code über den Macro-Recorder aufgezeichnet:

Code:
ActivePrinter = "Drucker A"
    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


Mein Problem:
Das Formular ist für eine Abteilung gedacht. Der Drucker, auf dem das Formular ausgedruckt werden soll steht jedoch in einer anderen Abteilung.
Wenn ich nun auf den CommandButton drücke, druckt es mir das Formular wunderbar auf Drucker A aus. Jedoch ist der Standard-Drucker der Abteilung, die das Formular bearbeitet, Drucker B. Wenn ich nun diesen Befehl ausführen lasse, stellt sich in der eingebenden Abteilung automatisch Drucker A als Standarddrucker ein. Das ist natürlich für die eingebende Abteilung lästig, nach jeder Formular-Bearbeitung den Drucker wieder zu wechseln.

Meine Frage:
Gibt es einen alternativen Befehl, bei dem das Problem nicht auftritt? Bin VBA-Anfänger...

Vielen Dank schonmal fürs Posten!

Lg
Gast1066
Gast


Verfasst am:
13. März 2009, 15:45
Rufname:

AW: VBA-Druckerbefehl richtet Drucker als Standarddrucker ei - AW: VBA-Druckerbefehl richtet Drucker als Standarddrucker ei

Nach oben
       Version: Office 2003

Hi, habs grad rausbekommen.
Man muss den eigenen Standarddrucker einfach nochmal unters Coding schreiben:

Code:
Private Sub CommandButton1_Click()
ActivePrinter = "Drucker A"
    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 = "Drucker B"
End Sub


Danke trotzdem an die, die sich Gedanken gemacht haben.
Gruß
Lisa
Moderator; Word seit Word 5.0 (für DOS)


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


AW: VBA-Druckerbefehl richtet Drucker als Standarddrucker ei - AW: VBA-Druckerbefehl richtet Drucker als Standarddrucker ei

Nach oben
       Version: Office 2003

Für die "Nachwelt" hier noch der Link zur richtigen Lösung:

So stellt man den Drucker richtig um

Gruß
Lisa
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): Schachtzuweisung HP Drucker 5 NvA 149 20. März 2014, 18:39
r.mueller Schachtzuweisung HP Drucker
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro: Druckauftäge für 2 Drucker 4 financialmaf 285 25. Jul 2012, 20:01
financialmaf Makro: Druckauftäge für 2 Drucker
Keine neuen Beiträge Word Hilfe: Drucker eigenschaften 5 sascha321 1132 18. Sep 2011, 21:23
sascha321 Drucker eigenschaften
Keine neuen Beiträge Word Hilfe: Schnelldruckbutton mit bestimmtem Drucker definieren 1 shinz 2704 07. Jul 2011, 21:00
CaBe Schnelldruckbutton mit bestimmtem Drucker definieren
Keine neuen Beiträge Word Hilfe: Verschiedene Formulare, unterschiedliche Drucker 3 Daniel H. 1297 13. Jul 2010, 12:50
Daniel H. Verschiedene Formulare, unterschiedliche Drucker
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 Hilfe: *T*Fachauswahl an Drucker, falscher Ausdruck 0 PhoenixX 2015 19. Mai 2009, 11:26
PhoenixX *T*Fachauswahl an Drucker, falscher Ausdruck
Keine neuen Beiträge Word Hilfe: Standarddrucker wird nicht automatisch vorgeschlagen 0 wolfgang01 1007 03. März 2009, 20:03
wolfgang01 Standarddrucker wird nicht automatisch vorgeschlagen
Keine neuen Beiträge Word VBA Programmierung (Makros): Word Standarddrucker nicht verändern 3 hildwin 3961 02. März 2009, 16:51
Lisa Word Standarddrucker nicht verändern
Keine neuen Beiträge Word Hilfe: Drucker druckt keine Word-Dokumente 5 Gast 6284 01. Jan 2009, 21:55
TimoZ Drucker druckt keine Word-Dokumente
Keine neuen Beiträge Word Formate: Esrte Zeile richtet sich nicht nach Blocksatz 4 EMIL23 1526 16. Dez 2008, 10:53
EMIL23 Esrte Zeile richtet sich nicht nach Blocksatz
Keine neuen Beiträge Word Hilfe: Fehlermeldung: keine Rückmeldung vom Drucker erhalten 4 jannnn 12886 05. Nov 2008, 13:53
Snoopy76 Fehlermeldung:  keine Rückmeldung vom Drucker erhalten
 

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