Macro para gerar PDF

[RicardoVCM]

Estou usando uma adaptação deste macro, porém eu preciso que o mesmo salve o PDF em um diretório específico (por exemplo: "C:/Users/RicardoVCM/Desktop"), pois se não for feita essa definição, ele salva no último local onde salvei alguma coisa, e pode acabar perdendo o arquivo.

    Private Sub Gerar_PDF()        Dim nomedopdf As String        nomedopdf = Application.InputBox("Digite o nome para o arquivo PDF", "Gerar documento em PDF", Range("a1"))        If nomedopdf = "Falso" Then Exit Sub                With ActiveSheet            .ExportAsFixedFormat _                    Type:=xlTypePDF, _                    Filename:=nomedopdf, _                    OpenAfterPublish:=True              End With    End Sub

OBS: Essa condição para o nomedopdf foi porque, quando eu clicava em "Cancelar" na InputBox, ele prosseguia com o macro e ainda assim salvava o PDF.

Opa, desculpa a minha Newbisse, mas acabei de encontrar a solução para o meu problema.

 

Podendo ser util para alguem, segue a solução:

    Private Sub Gerar_PDF()    Dim nomedopdf As String    nomedopdf = Application.InputBox("Digite o nome para o arquivo PDF", "Gerar documento em PDF", Range("a1"))    If nomedopdf = "Falso" Then Exit Sub    With ActiveSheet     .ExportAsFixedFormat _       Type:=xlTypePDF, _       Filename:=nomedopdf, _       OpenAfterPublish:=True       destino = "C:\Users\RicardoVCM\Desktop"    End With      End Sub

[Patropi]

Desmembrado do tópico:

 

http://forum.clubedohardware.com.br/forums/topic/1082045-macro-com-fun%C3%A7%C3%A3o-de-gerar-pdf/

 

Sempre crie um novo tópico para tuas dúvidas.

 

Patropi - Moderação.