Ausgewählte Tabellenblätter als ein PDF speichern?
Hi Leute,
ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?
vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅
2 Antworten
Die Optionen bei Datei "Speichern-unter" als PDF geben dies nicht her.
Nur von bis.
Daher habe ich dies so gelöst, dass alle Inhalte, die in die PDF sollen.
Zuerst auf ein "ExportBlatt" kopiert werden.
Dort dann automatisch die Druckbereiche gesetzt werden, um dann im Anschluss NUR dieses ExportBlatt mit den Anzahl der gewünschten Seiten als PDF gespeichert wird. (Ob in Office 365, dieser Dialog gepimpt ist weiß ich nicht. Wenn ja dann einfach mal ein Makro aufzeichnen)
Hallo,
teste mal:
Public Sub PDF_Export()
Dim objSheet As Worksheet, objActiveSheet As Worksheet
Set objActiveSheet = ActiveSheet
For Each objSheet In ThisWorkbook.Worksheets
If objSheet.Visible = xlSheetVisible Then Call objSheet.Select(Replace:=False)
Next
Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\PDF", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True)
Call objActiveSheet.Select
Set objActiveSheet = Nothing
End Sub