Runtime Error 1004

[Tgpitch16]

I have the code below to export to a pdf file. However, when I change the file location to just "C:\Universal Arbitration Form April 2020.pdf", it throws a runtime error 1004. This form will be utilized for the masses and each computer is setup differently, thus the reason for the file location change. What else am I missing?

Sub Save_to_PDF()
'
' Save_to_PDF Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\113891\Desktop\Universal Arbitration Form April 2020.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[MARK858]

For some reason I didn't paste the Dim when copying/pasting...

Sub Save_to_PDF()
    ' Save_to_PDF Macro
    '
    Dim FileName As String, myfile_Path As String
    
    FileName = "Universal Arbitration Form April 2020.pdf"

    myfile_Path = Application.GetSaveAsFilename(InitialFileName:=FileName, FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
    

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

End Sub

 

[Tgpitch16]

For some reason I didn't paste the Dim when copying/pasting...

Sub Save_to_PDF()
    ' Save_to_PDF Macro
    '
    Dim FileName As String, myfile_Path As String
   
    FileName = "Universal Arbitration Form April 2020.pdf"

    myfile_Path = Application.GetSaveAsFilename(InitialFileName:=FileName, FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
   

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

End Sub

Perfect, thank you for your help

 

[MARK858]

You're welcome

 

[Tgpitch16]

You're welcome

One last ask.

If a user executes the command, but instead of saving, presses cancel, is there a way to not have the pdf generate? It currently generates with the file name as False.pdf

 

[MARK858]

Try...

Sub Save_to_PDF()
    ' Save_to_PDF Macro
    '
    Dim FileName As String, myfile_Path As String
   
    FileName = "Universal Arbitration Form April 2020.pdf"

    myfile_Path = Application.GetSaveAsFilename(InitialFileName:=FileName, FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
    If myfile_Path = "False" Then Exit Sub

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

End Sub

 

[Tgpitch16]

Try...

Sub Save_to_PDF()
    ' Save_to_PDF Macro
    '
    Dim FileName As String, myfile_Path As String
  
    FileName = "Universal Arbitration Form April 2020.pdf"

    myfile_Path = Application.GetSaveAsFilename(InitialFileName:=FileName, FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
    If myfile_Path = "False" Then Exit Sub

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

End Sub

Perfect, thanks again.

 

[MARK858]

No problem