Auf$ = Dpi$(Dlg.Dpi) : Eco$ = Econ$(Dlg.Econ) If Dlg.Econ = 0 Then K1$ = "%e{Oben 2}{Unten}" If Dlg.Econ = 1 Then K1$ = "%e{Oben 2}{Unten 2}" If Dlg.Dpi = 0 Then K2$ = "%d{Oben}" If Dlg.Dpi = 1 Then K2$ = "%d{Oben}{Unten}" SendKeys "{Rechts}{Tab}" + K1$ + K2$ + "{Eingabe}" DateiDruckereinrichtung .Optionen SetPrivateProfileString "Drucker", "Dpi", Auf$, "WWMAK.INI" SetPrivateProfileString "Drucker", "Econ", Eco$, "WWMAK.INI" End If End If If Wahl = 1 Then Redim Dlg As DateiDrucken GetCurValues Dlg If Dialog(Dlg) Then DateiDrucken Dlg End If ElseIf Wahl = 2 Then DateiDruckereinrichtung .Optionen ElseIf Wahl = 3 Then If AnwAktiv("Hauptstatusfenster") Then AnwAktivieren "Hauptstatusfenster" Else Shell "hpsw" End If End If End Sub