bestimmten Bereich als PDF speichern
03.12.2018 13:33:23
Mub
ich möchte gerne eine PDF erstellen. Das klappt auch soweit (siehe Code unten). Allerdings möchte ich jetzt von dem Reiter "Kosten" nur den Bereich von A1 bis E58 als PDF speichern. Wie und an welcher Stelle gebe ich es genau ein. Meine bisherigen Versuche scheiterten :)
Sub Save_Ab_pdf()
Dim PDFfileName As String
PDFfileName = Range("M43").Text & ".pdf"
Sheets(Array("Matrix", "Kosten")).Select
Sheets("Matrix").Activate
ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:=PDFfileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
Sheets("Menu").Select
MsgBox ("PDF file successfully created." & vbNewLine & vbNewLine & "PDF Datei erfolgreich _
_
_
_
_
erstellt.")
End Sub
Anzeige