vba Save_Excel_As_PDF met Application.GetSaveAsFilename maar filename uitgrijzen

Sub Save_Excel_As_PDF()

    Dim PdfFilename As Variant

    PdfFilename = Application.GetSaveAsFilename( _
        InitialFileName:=Sheets("Identification Plate & CE-label").[D6].Value & " - " & [D20].Value & " - " & "CE plate", _
        FileFilter:="PDF, *.pdf", _
        Title:="Save As PDF")

    If PdfFilename = False Then Exit Sub

        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=PdfFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    MsgBox "Done! Saved as:" & vbCrLf & _
    PdfFilename & vbCrLf & _
    "" & vbCrLf & _
    "Excel will be closed!", vbInformation, "FILE SAVED"

    ThisWorkbook.Saved = True
    Application.Quit

End Sub

Sub SelecteerMapnaam()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\"
        .Title = "Selecteer maplocatie"
        .ButtonName = .Title
        .Show
        If .SelectedItems.Count > 0 Then
            Sheets("Blad1").Range("A1") = .SelectedItems(1)
        End If
    End With
End Sub

Sub M_snb()
    With Application.FileDialog(4)
        .InitialFileName = "G:\OF\"
        .Title = "Selecteer maplocatie"
        .ButtonName = .Title
        If .Show Then Blad1.Cells(1) = .SelectedItems(1)
    End With
End Sub

Sub Save_as_PDF()

    Dim Pad As String, BestandsNaam As String

    Pad = GetFolder + "\"

    BestandsNaam = Sheets("Identification Plate & CE-label").[D6].Value & " - " & [D20].Value & " - " & "CE plate"

    Sheets("Identification Plate & CE-label").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & BestandsNaam, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    MsgBox "Done! Saved as:" & vbCrLf & _
    Pad & BestandsNaam & ".pdf" & vbCrLf & _
    "" & vbCrLf & _
    "Excel will be closed!", vbInformation, "FILE SAVED"

    'ThisWorkbook.Saved = True
    'Application.Quit

End Sub

Function GetFolder() As String

    Dim fldr As FileDialog

    Dim sItem As String

    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

    With fldr
        .Title = "Select a Folder Where You Want to Save Your PDF"
        .AllowMultiSelect = False
        .ButtonName = "Select Location"

        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With

NextCode:
    GetFolder = sItem

    Set fldr = Nothing

End Function

Sub edm()
    Dim sItem As String
    
    sItem = GetFolder
    If sItem <> "" Then
        Debug.Print sItem
    Else
        Debug.Print "Geannuleerd"
    End If
End Sub

Function GetFolder() As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder Where You Want to Save Your PDF"
        .AllowMultiSelect = False
        .ButtonName = "Select Location"
        If .Show Then GetFolder = .SelectedItems(1)
    End With
End Function

Sub Save_as_PDF()

    Dim BestandsNaam As String, Locatie As String
    
    Locatie = GetFolder

    If Locatie <> "" Then
        Debug.Print sItem
        BestandsNaam = Sheets("Sheet1").[D6].Value & " - " & [D20].Value & " - " & "CE plate"

        Sheets("Sheet 1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Locatie + "\" & BestandsNaam, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        MsgBox "Done! Saved as:" & vbCrLf & _
            Locatie + "\" & BestandsNaam & ".pdf" & vbCrLf & _
            "" & vbCrLf & _
            "Excel will be closed!", vbInformation, "FILE SAVED"
    
    Else
        MsgBox "Canceled by user", vbInformation, "SAVE AS PDF"
        Debug.Print "Geannuleerd"
    
    End If

    ThisWorkbook.Saved = True
    Application.Quit

End Sub

Function GetFolder() As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder Where You Want to Save Your PDF"
        .AllowMultiSelect = False
        .ButtonName = "Select Location"
        If .Show Then GetFolder = .SelectedItems(1)
    End With

End Function

With Sheets("Sheet1")
    BestandsNaam = .[D6].Value & " - " & .[D20].Value & " - " & "CE plate"
End With

Sub M_snb()
    With Application.FileDialog(4)
        .InitialFileName = "G:\OF\"
        .Title = "Selecteer maplocatie"
        .ButtonName = .Title
        if .Show then activesheet.exportasfixedformat 0, .SelectedItems(1) & "\voorbeeld.pdf"
    End With
End Sub