Winword 7.0
Mit einem Makro den Standarddrucker wechseln
Antwort
Tip: Innerhalb von Word 7.0 ist es nicht mehr möglich, den Standarddrucker zu
wechseln. Die Änderung des Druckers betrifft nur Word und nicht die anderen
Anwendungen. Auch bei jedem neuen Start von Word muß der andere Drucker neu
eingestellt werden. Die Umstellung des Standarddruckers unter Windows 95 ist jedoch
nur recht umständlich über »Arbeitsplatz | Systemsteuerung | Drucker« zu erreichen.
Möchten Sie direkt bei der Änderung des Druckers in Word bestimmen, ob dieser
Drucker systemübergreifend als Standarddrucker verwendet werden soll, hilft Ihnen das
nebenstehende Makro. Es fragt Sie mit einer Dialogbox jedesmal, wenn Sie im Menü
»Datei | Drucken« einen anderen Drucker einstellen, beim Verlassen des Druckdialogs,
ob Sie diesen Drucker als Standarddrucker verwenden wollen. Damit das Makro auch
jeden Druckerwechsel mitbekommt, ist es sinnvoll, ihm den Namen »DateiDrucken« zu
geben. In diesem Fall wird der Befehl »Datei | Drucken« durch das Makro ersetzt.
Sollten Sie das Makro irgendwann nicht mehr verwenden wollen, benennen Sie es
einfach um, und der alte Druckbefehl kommt wieder zum Einsatz. Schreiben Sie nach
»Extras | Makros« in die Zeile »Makroname« die Zeichenfolge »DateiDrucken«. Mit
»Erstellen« gelangen Sie in die Befehlsfolge des Word-Befehls »DateiDrucken«.
Löschen Sie alle Zeilen und geben statt dessen die im Kasten abgedruckten Zeilen ein.


Makrolisting DateiDrucken
Sub MAIN
Ret$ = Chr$(13) + Chr$(13)
On Error Goto Fehler
Dim Druckername As DateiDruckereinrichtung
GetCurValues Druckername
Name$ = Druckername.Drucker
Dim Drucken As DateiDrucken
GetCurValues Drucken
X = Dialog Drucken
Dim Druckernameneu As DateiDruckereinrichtung
GetCurValues Druckernameneu
Nameneu$ = Druckernameneu.Drucker
If Name$ <> Nameneu$ Then
Standard = MsgBox("Wollen Sie den Drucker " + Ret$ + Nameneu$ + Ret$ + "als
Standarddrucker definieren? ", 4)
If Standard = - 1 Then DateiDruckereinrichtung .Drucker = Nameneu$,
NichtAlsSystemStandardBestimmen = 0
End If
End If
If X = - 1 Then DateiDrucken Drucken
fehler:
If err = 0 Or err = 102 Then Goto ende
Else
Error err
End If
ende:
End Sub