Veja se auxilia; para gerar PDF:
2007 e acima:
http://www.planilhando.com.br/forum/viewtopic.php?f=16&t=1046&p=15536&hilit=pdf#p15536

2003:
http://www.planilhando.com.br/forum/viewtopic.php?f=25&t=2540&p=11110&hilit=pdf#p11110

Caro Reinaldo

Não funcionou!!!

Para imprimir como PDF, você deve ter o Excel 2007 SP2 ou superior.
Sobre informações que estão em rótulos (Label) de formulários, não tenho como ajudar porque não sei como é a estrutura do seu formulário. No entanto, para imprimir como PDF a partir de uma base de dados, há uma forma fácil. Como é sua base de dados para gerar o relatório? Você deu poucos detalhes do seu problema e o feedback ao Reinaldo foi insuficiente para saber sua dificuldade.

Vou tentar explicar melhor. Tenho um formulário com um botão e uma planilha, a "Plan5" com a área de impressão já definida.
Quero clicar em um botão de um formulário e dessa forma gerar o pdf dessa Plan5, salvar em um local do computador ou enviar para um e-mail. Os dados estarão todos na Plan5, portanto só preciso saber como fazer o pdf e salvá-lo com código VBA.
É suficiente para me ajudar?

Obrigado.

Sem saber a versão do seu excel, qual sua afinidade com codigos, para poder adaptar um codigo as sua necessidades fica um pouco dificil

Mas experimente (somente 2007_SP2 e acima)

Sub CriaPDF()
   'Versoes 2007 e acima
    Dim SvInput As String
    Dim Data As String
    Data = Format(Date - 1, "DD-MM-YYYy")
    SvInput = "C:TempPROGR_PR" & "_" & Data & ".pdf"
        With ActiveSheet
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With
End Sub

Reinaldo

Criei uma planilha qualquer para testar seu código.
Eu utilizo o excel 2007 e quando vou executá-la, dá um erro no seguinte trecho:
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=SvInput, _
OpenAfterPublish:=True
End With

O que poderá ser?

Aparentemente o formação do nome do arquivo está comp problemas.

veja como abaixo modificado. Irá salvar o arquivo como o nome Teste.pdf, no mesmo diretório onde está a sua planilha

Sub CriaPDF()
   'Versoes 2007 e acima
    Dim SvInput As String
    SvInput = ThisWorkbook.Path & Application.PathSeparator & "teste.pdf"
        With ActiveSheet
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With
End Sub

Reinaldo, estou anexando a planilha conforme está sendo testada.

Favor testar em sua máquina pois continua dando o mesmo erro.

Eu utilizo o excel 2003 e 2010 (não tenho o 2007) .
No 2003 não roda, retorna erro de "Variavel Não definida" (xlTypePDF);pois para essa versão o procedimento e completamente diferente.
Já no 2010 roda sem problemas; e salva a planilha ativa em formato pdf no mesmo diretório do arquivo xl..
Vc disse acima que utiliza o 2007, pore o arquivo que mandou está em xls (2003). Vc precisa confirmar se sua versão do 2007 está atualizada.
vja o artigo do site fabriquinha do tio Bill
http://office.microsoft.com/pt-br/infopath-help/salvar-um-arquivo-em-formato-pdf-HA010064992.aspx e
http://office.microsoft.com/pt-br/infopath-help/imprimir-compartilhar-e-proteger-arquivos-nos-formatos-pdf-e-xps-HA010167527.aspx?CTT=5&origin=HA010064992

Reinaldo, era exatamente esse o problema. Foi só atualizar para que o código funcionasse.
Valeu!!