Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Diálogo Exportar em...
 
Notifications
Clear all

Diálogo Exportar em PDF

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
678 Visualizações
RSS
 rodolfohms
(@rodolfohms)
Posts: 13
Active Member
Topic starter
 

Bom dia, meus amigos.

Criei um menu personalizado com ribbons e gostaria que um dos botões abrisse a caixa de diálogo exportar/salvar em PDF. Já tentei isso:

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="PDF Files(*.pdf),*.pdf")

O código acima até abre o diálogo Exportar em PDF, porém não salva o arquivo.

De antemão, obrigado pelas contribuições.

 
Postado : 26/12/2013 9:21 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se ajuda.

Option Explicit

Sub AleVBA10026_PDF()
    'ChDir "c:Temp" '<-Mude o lacal
    Dim X
    X = Application.GetSaveAsFilename(InitialFileName:="NomeDoArquivoPDF.pdf", _
         FileFilter:="PDF files, *.pdf", _
         Title:="Save PDF File")
    If TypeName(X) = "Boolean" Then
    Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=X, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        End If
    End Sub

Att

 
Postado : 26/12/2013 10:57 am
 rodolfohms
(@rodolfohms)
Posts: 13
Active Member
Topic starter
 

Perfeito, Alexandre.

Muito obrigado e um Feliz Ano Novo.

 
Postado : 26/12/2013 1:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz em ajudar! :)

Feliz Ano Novo para você também!! ;)

Att

 
Postado : 26/12/2013 1:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico