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 RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Bestimmten Bereich über Makro drucken


Betrifft: Bestimmten Bereich über Makro drucken von: David
Geschrieben am: 26.01.2019 16:25:20

Hallo.

Ich möchte über ein Makro immer einen bestimmten Bereich drucken.
Meine Vorstellung ist zum Beispiel das ich z.b. Zelle A15 selektiere
und dann im Menuband mein Makro aktiviere.

Das Makro druckt dann Range ("E15:H18")

Wenn Zelle A35 selektiert wäre drucke Range ("E35:H38")

Also immer Spalte E bis H und drei Zellen nach unten.

Momentan markiere ich den Bereich und mein Makro sieht so aus:

Sub Makro7()
 '
 ' Makro7 Makro
 '
     Application.ActivePrinter = "Brother QL-570 auf Ne04:"
     ExecuteExcel4Macro _
     "PRINT(1,,,1,,,,,,,,1,""Brother QL-570 auf Ne04:"",,TRUE,,FALSE)"
     Selection.PrintOut Copies:=1
     Application.ActivePrinter = "Microsoft Print to PDF auf Ne01:"
 
 End Sub
Es wäre echt toll wenn es solch eine Möglichkeit geben würde.

Vielen Dank schonmal.

  

Betrifft: AW: Bestimmten Bereich über Makro drucken von: onur
Geschrieben am: 26.01.2019 17:42:48

Private Sub CommandButton1_Click()
    With Selection
        If .Rows.Count > 1 Or .Columns.Count > 1 Or .Column <> 1 Then Exit Sub
        Range(Cells(.Row, 5), Cells(.Row + 3, 8)).PrintOut
    End With
End Sub



  

Betrifft: AW: Bestimmten Bereich über Makro drucken von: David
Geschrieben am: 27.01.2019 12:20:14

Vielen Dank onur :)
Genau das habe ich gebraucht.
Danke Danke Danke :)


Beiträge aus dem Excel-Forum zum Thema "Bestimmten Bereich über Makro drucken"