Winword 7.0

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 diese 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 Standard-drucker
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