none
Criar Botão para salvar o Conteúdo do Excel em PDF RRS feed

  • Pergunta

  • Galera, eu preciso urgente de uma ajuda.

    estou criando uma planilha de orçamento via excel, e eu queria criar um botação, onde esse botão calcula todas as informações que eu inseri, e depois salva como PDF, eu ja vi planilhas assim e gostaria de criar...

    :(
    terça-feira, 28 de março de 2017 15:49

Todas as Respostas

  • Boa tarde,

    Para salvar em PDF, pode criar esta macro, e atribuir a um botão de formulário.

    Sub Save_as_pdf()
    Dim FSO As Object
    Dim s(1) As String
    Dim sNewFilePath As String
    
        Set FSO = CreateObject("Scripting.FileSystemObject")
        s(0) = ThisWorkbook.FullName
        
        If FSO.FileExists(s(0)) Then
            '//Change Excel Extension to PDF extension in FilePath
            s(1) = FSO.GetExtensionName(s(0))
            If s(1) <> "" Then
                s(1) = "." & s(1)
                sNewFilePath = Replace(s(0), s(1), ".pdf")
                
                '//Export to PDF with new File Path
                ActiveSheet.ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=sNewFilePath, _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                    IgnorePrintAreas:=True, OpenAfterPublish:=True
            End If
        Else
            '//Error: file path not found
            MsgBox "Error: this workbook may be unsaved.  Please save and try again."
        End If
        
        Set FSO = Nothing
    
    End Sub

    Os cálculos também podem ser feitos da mesma forma.

    Att,


    Fabio Rosa.

    terça-feira, 28 de março de 2017 16:26