AW: Speichern unter Dialogfenster
22.12.2021 20:49:44
Alwin
Hallo Claus,
vielleicht ist das schon ausreichend:
Private Sub Pdf_SpeichernUnter()
Dim Dateiname As String, Speicherort As String
Dateiname = "Testfile.pdf"
Speicherort = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Speichern unter als PDF")
If Speicherort = "Falsch" Then
Exit Sub
End If
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Zusätzlich kannst du noch einen Pfad vordefinieren:
Private Sub Pdf_SpeichernUnter()
Dim Pfad As String, Dateiname As String, Speicherort As String
Pfad = "C:\Users\Irgendjemand\Desktop\"
Dateiname = "Test mit pdf format.pdf"
Speicherort = Application.GetSaveAsFilename(InitialFileName:=Pfad & Dateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Speichern unter als PDF")
If Speicherort = "Falsch" Then
Exit Sub
End If
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Gruß Uwe