ipv op 1 locatie op 2 locaties een pdf bestand maken

'The code below are used by the macros in the other two modules
'Do not change the code in the functions in this module

Function Maak_lijst_PDF(Myvar As Object, FixedFilePathName As String, _
                        OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
    Dim FileFormatstr As String
    Dim Fname As Variant
    Application.DisplayAlerts = OK = True
    'Test If the Microsoft Add-in is installed
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

        If FixedFilePathName = "" Then
            'Open the GetSaveAsFilename dialog to enter a file name for the pdf
            FileFormatstr = "PDF Files (*.pdf), *.pdf"
            Application.DisplayAlerts = OK = True
            Fname = Application.GetSaveAsFilename[B]("G:\Produktie\Hal\Hall\GS\Frank\PDF\SKU " & Sheets("Form").Range("E3").Value, filefilter:=FileFormatstr, _
                                                  Title:="Create PDF")[/B]
            'If you cancel this dialog Exit the function
            If Fname = False Then Exit Function
        Else
            Fname = FixedFilePathName
        End If
    
    
        'If OverwriteIfFileExist = False we test if the PDF
        'already exist in the folder and Exit the function if that is True
        If OverwriteIfFileExist = False Then
           If Dir(Fname) <> "G:\Produktie\Hal\Hall\GS\Frank\PDF\SKU" Then Exit Function
        End If

        'Now the file name is correct we Publish to PDF
        On Error Resume Next
        Myvar.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=Fname, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=OpenPDFAfterPublish
        On Error GoTo 0
        'If Publish is Ok the function will return the file name
        If Dir(Fname) <> "" Then Maak_lijst_PDF = Fname
    End If
    
End Function