Office: CompanyButton mit Msg Box

Moin Gerd,
dann fange ich mal mit einer kleinen Information an: Das was du als CompanyButton bezeichnest, dürfte jawohl ein CommandButton sein

Ich habe Dir eben eine kleine Userform VBAgebastelt, die folgendes für Dich tut: aufgerufen mit F12 stehen Dir in einer ComboCox (aka PullDown) im Moment drei Druckbereiche zur Verfügung, die ich mal links, mitte, rechts genannt habe. Diese Druckbereiche habe ich in VBA definiert, was aber so einfach ist, dass Du es selbst (wie auch die Namen) leicht anpassen kannst.
Dann hast Du zwei CommandButtons: Einen der Deine Druckvorbereitung abbricht und Du dann einen anderen Druckbereich auswählen musst - einen der einfach direkt gemäß Deiner Auswahl einen Druckbereich des aktiven Arbeitsblatts auf Deinem Standarddrucker druckt. Das direkte Adressieren z.B. des Sheets "TKP" wird dadurch unnötig.

Wie kommt der Spaß in Dein XL-Workbook? Hier eine Step-by-step-Anleitung:

Du lädst die hier angehängte ZIP in ein Testverzeichnis, entpackst sie und legst dort eine Kopie(!) einer Deiner Arbeitsmappen ab und öffnest sie.
Mit Alt+F11 kommst Du in den VBEditor. Nach einem Rechtsklick links oben im Fenster Projekt wählst Du Datei importieren und holst nacheinander die Dateien usfPrnArea.frm und mdlPrnArea.bas in Deine Mappe. Im Fester Projekt siehst Du jetzt zwei neue Komponenten.
Die erste Komponente im Projekt-Fenster ist DieseArbeitsmappe. Öffne deren Code mit einem Rechtsklick auf den Namen und füge per Copy 'n Paste diesen Code ein:

Code:

Option Explicit
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "ShowUSF"
End Sub

Nun setzt Du Deinen Cursor vor das Wort Private und drückst F5. Du siehst erst einmal kein Ergebnis, aber Deine UserForm ist jetzt der Taste F12 zugeordnet.
Jetzt speichert Du Deine Arbeitsmappe unter DeineMappe.XLSB, wechselst vom VBEditor zu XL (Startleiste) und testest mit F12 mal den Aufruf der Userform. Hat das geklappt, kannst Du diese UserForm erst einmal wieder schließen und gehst zurück in den VBEditor.
Mit der rechten Maustaste wählst Du usfPrnArea aus und dort Code anzeigen. Die Namen der Druckbereiche kannst Du in Zeile 5 anpassen, die Druckbereiche selbst in Zeile 24. WICHTIG: achte dabei genau auf die vorhandene Syntax. Hier kommt es auf jeden Anführungsstrich, auf jedes Komma an! Speichere Deine Datei, schließe den VBEditor und genieße die Vorzüge von VBA.

Eine etwas flexiblere Lösung gibt es dann später hier

Viel Spaß damit! wünscht:

 

Moin,
Werde das nachher direkt mal durchspielen.

Vien Dank für deine Mühe!

Bin jetzt schon gespannt was das wird.

Grüße

 

Ach ja,

Die Überschrift sollte auch eigentlich
CommandButton heißen.... Leider durch Autokorrektur zu dem geworden was es ist

 

Und hier the Next Generation

Viel Spaß damit!