|
Hallo Namensvetter,
ich arbeite zwar unter Windows 10 mit Office 2019, aber der nachstehende Code sollte auch bei Dir funktionieren:
Public Sub ErstellePDF()
Dim strFullFileName As String
' vor Erstellen des PDF Arbeitsmappe speichern
ThisWorkbook.Save
' Dateinamen zusammenstellen, dabei Pfad voranstellen
strFullFileName = ThisWorkbook.Path & "\" & "DeinDateiname" & ".pdf"
' PDF erstellen
' im Pfad des Workbooks unter gleichem Namen, in Minimalqualität (vollkommen ausreichend, sonst auch "xlQualityStandard", \n
' möglich) Dokumenteigenschaften einschließen, Druckbereiche ignorieren, nach Speicherung nicht im Viewer anzeigen
ThisWorkbook.Worksheets("Dein Sheet").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFullFileName _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Viele Grüße Karsten
|