Office: Drucken bis letzte beschriebene Zeile per VBA

Hallo, ich habe eine Tabelle von A3-O310 welche aber nicht immer voll ausgefüllt wird, da diese täglich neu beschrieben wird. Nun habe ich ein Makro gefunden, welches zwar den Druckbereich automatisch findet aber es wird nicht gedruckt. Erst wenn ich auf drucken im Menü gehe würde das gehen. Das soll aber gleich mit dem bedienen des Buttons geschehen. Schön wäre es wenn es dann noch mit Druckvorschau und speichern als PDF funktionieren würde. Muss aber nicht dringend notwendig sein. Könnte mir da bitte jemand weiter helfen?
Hier der VBA.

Sub drucken()
Dim Zeile As Long
Zeile = Sheets("Gesammt").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Gesammt").PageSetup.PrintArea = ""
Sheets("Gesammt").PageSetup.PrintArea = "$A$3:$O$" & Zeile 'Spalten anpassen
End Sub

 

Hallo,

Code:

Sub Drucken()
  Dim Zeile As Long
  With Worksheets("Gesamt")
     'Ermitteln letzte Zeile mit Daten in Spalte A:
     Zeile = .Cells(Rows.Count, 1).End(xlUp).Row
     
     'Festlegen Druckbereich:
     .PageSetup.PrintArea = "$A$3:$O$" & Zeile 'Spalten anpassen
     
     'Druckvoransicht anzeigen
     .PrintPreview EnableChanges:=True
     
     'Speichern als PDF-Datei
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.FullName & ".pdf", _
             quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
             OpenAfterPublish:=True
  End With
End Sub

 

Perfekt. Recht herzlichen Dank.