title image


Smiley Re: Dropdownfeld in Menüleiste zwecks Anzeige akivierter Drucker??????
Die Billig-Variante, weil man die Drucker nicht auslesen muss.



Private Const Leiste = "Menu Bar"

Dim Knopf As CommandBarButton



Sub SchaltknopfEinrichten()

Application.CustomizationContext = NormalTemplate

Dim Knopf As CommandBarButton

Set Knopf = CommandBars(Leiste).Controls.Add(ID:=1)

With Knopf

.TooltipText = "Drucker ändern"

.OnAction = "DruckerDialogOeffnen"

.Style = msoButtonCaption

.Tag = "MeinKnopf"

End With

Knopf.Caption = Application.ActivePrinter

NormalTemplate.Save

End Sub



Sub DruckerDialogOeffnen()

Dialogs(wdDialogFilePrintSetup).Show

CommandBars(Leiste).Controls(11).Caption = Application.ActivePrinter



End Sub





Einmal einrichten und ab dann funktioniert es. Ob das Control wirklich den Index 11 hat, musst du ausprobieren.

Gruesse

Alexandra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: