Speicherort der PDF mit Msgbox ausgeben
23.06.2015 17:22:49
Peter
Geht das und wenn ja, wie ? Wäre echt toll, wenn mir jemand helfen könnte.
Danke.
Grüße Peter
Sub SpeichernPDF()
Dim vntFile As Variant
MsgBox "Pfad zum Speichern auswählen !"
vntFile = Application.GetSaveAsFilename(ActiveSheet.Name & "_" & ActiveSheet.Range("a3"). _
Value & "_" & ActiveSheet.Range("b1").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Pfad = Application.ActiveWorkbook.Path + "\" + Application.ActiveWorkbook.Name
MsgBox ("Dateipfad = " & Pfad)
' hier möchte ich den Speicherort der PDF ausgeben
End Sub