Winword 6.0
HP-Laserjet per Makro konfigurieren
Antwort
Der HP-Laserjet 5 P bietet verschiedene Druckauflösungen
und einen Tonersparmodus. Leider ist es jedoch nicht
möglich, diese Einstellungen direkt im Druckerdialog von
Word zu verändern. Erst nach längerer Hangelei durch verschiedene Dialogboxen
gelangt man endlich zum entsprechenden Menü. Das im Kasten links abgedruckte
Makro erlaubt eine bequeme Wahl des Tonersparmodus
und der Druckauflösung. Nach dem Start des Makros
erscheint eine Dialogbox auf dem Bildschirm, in der die
gewünschten Einstellungen getroffen und direkt an den
Drucker übergeben werden. Über zwei weitere Schaltflächen gelangt man darüber
hinaus in die Einstellungen der Druckersoftware und das Statusfenster des Druckers.
Die Schaltfläche »OK« sendet den Ausdruck direkt an den Drucker - mit »Drucker...«


gelangt man in die Dialogbox »Datei | Drucken«.
Wurden Einstellungen verändert, startet das Makro
die Druckersoftware, steuert diese mit der per "Sendkeys"
übergebenen Zeichenfolge an und beendet sie danach.
Durch die Änderung dieser Zeichenfolge kann man das
Makro an andere Drucker anpassen, sofern deren Treiber
vollständig über die Tastatur eingestellt werden können.


Makro-Listing zur Konfiguration des HP-Laserjet 5 P


Sub MAIN
Dim Dpi$(1), Econ$(1)
Dpi$(0) = "600 dpi"
Dpi$(1) = "300 dpi"
Econ$(0) = "Ein"
Econ$(1) = "Aus"
Auf$ = GetPrivateProfileString$("Drucker", "Dpi", "WWMAK.INI")
Eco$ = GetPrivateProfileString$("Drucker", "Econ", "WWMAK.INI")
If Auf$="" Or Eco$="" Then Print "Bitte Druckqualität einstellen und mit OK
bestätigen."
Begin Dialog BenutzerDialog 480, 155, "Einstellungen für HP Laserjet 5P"
GroupBox 18, 12, 441, 72, "Druckqualität"
Text 30, 33, 81, 13, "Au&flösung:", .Text3
DropListBox 118, 32, 100, 30, Dpi$(), .Dpi
Text 260, 33, 96, 13, "Econo&Mode:", .Text4
DropListBox 364, 32, 76, 30, Econ$(), .Econ
CheckBox 30, 59, 403, 16, "Standard&einstellungen (600 dpi, EconoMode Aus)",
.Standard
OKButton 18, 98, 88, 21
CancelButton 222, 98, 103, 21
PushButton 114, 98, 101, 21, "&Drucken...", .Drucken
PushButton 338, 98, 121, 21, "HP-&Optionen", .Optionen
PushButton 338, 122, 121, 21, "&Statusfenster", .Status
End Dialog
Dim Dlg As BenutzerDialog
If Auf$ = "300 dpi" Then Dlg.Dpi = 1
If Eco$ <> "Ein" Then Dlg.Econ = 1
Wahl = Dialog(Dlg)
If Wahl = - 1 Or Wahl = 1 Then
If Dlg.Standard = 1 Then
SendKeys "{Rechts}{Tab}%s{Eingabe}"
DateiDruckereinrichtung .Optionen
SetPrivateProfileString "Drucker", "Dpi", "600 Dpi", "WWMAK.INI"
SetPrivateProfileString "Drucker", "Econ", "Aus", "WWMAK.INI"
Else