Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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

Bei Klick auf Checkbutton soll Gedruckt werden

Betrifft: Bei Klick auf Checkbutton soll Gedruckt werden von: Langmantl
Geschrieben am: 05.11.2014 14:49:50

Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?

  

Betrifft: AW: Bei Klick auf Checkbutton soll Gedruckt werden von: Michael
Geschrieben am: 11.11.2014 11:21:11

Hallo Langmantl!

Hier mal ein Makro (kann zB auch auf eine Schaltfläche gelegt werden) mit dem Druckfarbe und Anzahl der Kopien vom User bestimmt werden und das aktive Blatt entsprechend gedruckt wird:

Sub FarbeUndKopienBestimmen()

    Dim Kopien As Integer
    Dim Farbe As Variant
    
    Farbe = InputBox("Mit welcher Farbeinstellung soll das Dokument gedruckt werden?" _
    & vbCrLf & vbCrLf & "1... Schwarz/Weiß, 2... Farbe, Abbrechen o.a. = Schwarz/Weiß", " _
Druckfarbe", 1)
    
    Select Case Farbe
        
        Case Is = 1
            With ActiveSheet.PageSetup
                .BlackAndWhite = True
            End With
        Case Is = 2
            With ActiveSheet.PageSetup
                .BlackAndWhite = False
            End With
        Case Is = ""
            With ActiveSheet.PageSetup
                .BlackAndWhite = True
            End With
        Case Else
            With ActiveSheet.PageSetup
                .BlackAndWhite = True
            End With
    End Select
    
    Kopien = InputBox("Wieviele Kopien sollen gedruckt werden?", "Anzahl der Kopien", 1)

    ActiveSheet.PrintOut copies:=Kopien
    
End Sub
Denke, damit kommst Du hin, oder?
Beste Grüße
Michael


  

Betrifft: AW: Bei Klick auf Checkbutton soll Gedruckt werden von: Langmantl
Geschrieben am: 11.11.2014 12:24:43

Hallo Michael, danke funktioniert super


 

Beiträge aus den Excel-Beispielen zum Thema "Bei Klick auf Checkbutton soll Gedruckt werden"

Anwendername im Kommentar nicht fettgedruckt
Feststellen, ob eine Schaltfläche mit Shift-Taste gedrückt wurde
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden
Hyperlinks sollen mit Quell- und Zieladresse gelistet werden
Labelwerte werden beim Verlassen einer TextBox berechnet
Details von Verknüpfungen sollen aufgelistet werden
Werte aus Tabellenblatt-TextBoxes sollen addiert werden
Anzeige, wenn Listenwerte gefunden werden