Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

mit Optionsbuttons drucken

Betrifft: mit Optionsbuttons drucken von: Rainer
Geschrieben am: 10.08.2008 09:57:11

Hallo und guten Morgen,

ich habe ein Problem mit Optionsbuttons auf einem Formular.
Mein Formular sieht 3 Optionsbuttons vor zur Druckauswahl von verschiedenen Tabellenblättern
1. Berechnung
2. Mitteilungsschreiben
3. Beides
In dem Workbook sind Tabellenblätter mit den gleichen Namen (bis auf "Beides" :-)

Nun soll je nach dem welchen Optionsbutton man markiert, das entsprechende Tabellenblatt gedruckt werden.
Idealerweise soll in dem Formular noch ein Kontrollkästchen aufgenommen werden "Druckvorschau" wenn dies aktiviert ist, soll man "nur" die Druckvorschau sehen.

Die Aktivierung soll über einen Button "Drucken" erfolgen

Ich hoffe ich habe mich verständlich ausgedrückt

Ich hoffe mir kann jemand helfen

Schöne Grüsse

Rainer

  

Betrifft: AW: mit Optionsbuttons drucken von: Martin Springer
Geschrieben am: 10.08.2008 10:20:54

Hallo Rainer,

wo genau liegt denn Dein Problem? - In der Abfrage der UserForm-Controls? Hier mal ein Vorschlag mit drei Optionsbutton, einer Checkbox und einem CommandButton1. Diesen Code in der UserForm einfügen.


Private Sub CommandButton1_Click()

    If OptionButton1 = True Then
        Sheets("Berechnung").Select
    ElseIf OptionButton2 = True Then
        Sheets("Mitteilungsschreiben").Select
    ElseIf OptionButton3 = True Then
        Sheets(Array("Berechnung", "Mitteilungsschreiben")).Select
    End If
    
    If Checkbox1 = True Then
        ActiveWindow.SelectedSheets.PrintPreview
    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
    
End Sub




Viele Grüße

Martin


  

Betrifft: AW: mit Optionsbuttons drucken von: Rainer
Geschrieben am: 10.08.2008 10:30:49

Hallo Martin,

das war genau das was ich gesucht habe.

Vielen, vielen Dank

Gruss

Rainer


 

Beiträge aus den Excel-Beispielen zum Thema "mit Optionsbuttons drucken"