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