Speichern als PDF unter vorgegebenen Pfad
Sebastian
ich hätte da gerne mal ein Problem und wäre für Eure Hilfe sehr dankbar.
Ich möchte per VBA eine Speicherung als PDF durchführen. Der Pfad wo gespeichert werden soll ist bei mir in einer gesonderten Tabelle (Name=Dat) vorgegeben.
Für Eure Hilfe bereits jetzt schon vielen Dank.
Beste Grüße
Seppel
Sub Speicher_als_PDF()
'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Dat").Range("a1").Value
SpeicherName = Speicherpfad & "\" & Cells(13, 8) & ".pdf"
'ActiveWorkbook.SaveAs Filename:=SpeicherName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
