none
PDF error - Document not save RRS feed

  • Pergunta

  • My macro worked correctly for a long time, suddenly stopped and displaying this error.

    "Run time 1004: Document not saved. The document may be open, or an error may have been encountered when saving."

    Highlighting this part (Sheet3.Range("A1:j46").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, _
          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
          IgnorePrintAreas:=True, OpenAfterPublish:=True)

    Could someone please show me where the error is?

                      

    Private Sub cmdSavePDS_Click()

    Dim path    As String
    Dim fname   As String
    Dim invName As String

      ThisWorkbook.Save

       With Sheet3  
          invName = .Range("A13").Value & "-" & .Range("I7").Value
       End With
       invName = Replace(invName, "/", "_")

       path = "C:\Anita\Invoices\"
       Call MkDir(path)
       path = path & "Invoices 2019\" '
       Call MkDir(path)
       path = path & Sheet3.Range("A13").Value
       Call MkDir(path)

       fname = path & "\" & invName

       Sheet3.Range("A1:j46").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, _
          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
          IgnorePrintAreas:=True, OpenAfterPublish:=True
          ' para abrir o arquivo coloque True em OpenAfterPublish

    End Sub

    'requires reference to Microsoft Scripting Runtime
                                                                                                                                                                                            Function MkDir(strDir As String)
    Dim fso  As New FileSystemObject
       If Not fso.FolderExists(strDir) Then
       ' doesn't exist, so create the folder
          fso.CreateFolder strDir
       End If
    End Function

    quarta-feira, 5 de junho de 2019 16:06