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 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