Excel Macro Excel VBA para criar PDF

[vagnersouza1976]

Pessoal,

 

Boa tarde !!!

 

Preciso de uma Macro para criar relatório em PDF.

 

Com a seguintes condições:

 

Programa utilizado para criação de documentos em formato PDF: CutePDF

 

1º Definir o caminho onde será salvo o PDF

 

2º Renomear esse arquivo ... (não será o nome do arquivo excel)

 

3º Não perguntar se deseja substituir o arquivo ... (o arquivo será substituido pelo novo) ...

 

Pequisei no google e também tentei "gravar uma macro" mas sem sucesso !!!

 

Agradeço a atenção.

[Basole]

Segue um exemplo, veja se te ajuda.

 

No exemplo a macro salva direto como pdf s/ perguntar. Talvez não vá funcionar, dependendo da sua versão.

 

voce pode alterar o cod e colocar o dialogo ( Application.Dialogs(xlDialogPrint).Show ), para ai sim, voce escolher a sua 'impressora:'  no caso a CutePDF. 

 

Outra opção, caso esteja utilizando o office 2007, seria baixar o suplemento (Salvar como PDF da Microsoft, link abaixo), para office q nao tenha este recurso.

http://www.microsoft.com/pt-br/download/details.aspx?id=9943

 

Abx.

 

 

 

CreatePDF.rar

[vagnersouza1976]

Basole,

 

Bom dia !!!

 

Quase lá, é isso mesmo ... Meu office é 2010 e rodou perfeito ...

 

O único problema é que a macro imprimi a Seleção, mas preciso que seja feita a impressão da Planilha Ativa ...

 

Tem como alterar retirando o InputBox ? 

 

Grato pela atenção.

[Basole]

Vagner, segue c/ alteração solicitada

 

Sub Criar_PDF()
'funciona office 2010 ou > (2007 c/* suplemeento PDF: http://www.microsoft.com/pt-br/download/details.aspx?id=9943)
    Dim Filepdf, rData, rNome, ePath, Filename As String
    If Application.Version < "12.0" Then
        MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office"
        Exit Sub
    End If
    With Worksheets("Plan1")
        rData = .Range("A1")    ' na celula a1 insira uma data
        rData = Format(rData, "yyyy") ' altere a formatacao que desejar
        rNome = .Range("b1")    ' na celula b1 inira um nome ou numero que deseja
        ePath = .Range("C1")  ' Na "C1" diretorio que será salvo o PDF
        .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem)
        Filename = Trim(rData & "-" & rNome & ".Pdf")
        Filepdf = ePath & Trim("\" & Filename)
        Application.DisplayAlerts = False
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _
                                        Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=True
    End With
    End Sub

abx.

[vagnersouza1976]

Basole,

 

Perfeito, efetuei as adaptações da macro com a minha necessidade, mas não consegui alterar o caminho onde é salvo o PDF, conforme abaixo:

 

Quero substituir a célula "C1" (ePath = .Range("C1")) e incluir o caminho do diretório Ex: C:\temp na própria linha de código ...

 

Segue minha planilha já adaptada.

 

Link: https://www.sendspace.com/file/njyg1i

 

Com isso, acho que fecha ...

 

Grato.

[Basole]

Vagner, todo que for colocar na string, inisra entre ( "  " ) aspas. Exceto a orientacao:  xlPortrait

Neste caso do diretorio:  exemplo ->   ePath = "C:\Temp" .

 

abx.

[vagnersouza1976]

Basole,

 

PERFEITO !!!

 

Muito obrigado.

[Wiky Hander]

Boa tarde

amigo, não sou um Expert em Excel, mas venha procurando uma formula para salvar em pdf com um nome

cara a sua formula foi a unica que eu achei que servia, 

muito obrigado, 

fiz apenas uma modificação nela, mas ficou ótimo, parabéns!