Diálogo Exportar em PDF

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

2 Usuários

0 Reactions

690 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/12/2013 10:57 am