VBA Gerar PDF - Erro de Formato

[battagliacwb]

Boa tarde Senhores

Estou tentando realizar uma macro em VBA aonde ao click no "button" gere um arquivo em PDF.

Estou utilizando o seguinte codigo:

Sub Salvar()

Dim Salvar As FileDialog

Set Salvar = Application.FileDialog(msoFileDialogSaveAs)

Salvar.FilterIndex = 25

Salvar.initialFilename = "C:\Users\mbattaglia\Documents\Analise de Tarifas 2012\2013\"

Salvar.initialFilename = Range("b3") + "." + Range("b5")

Salvar.Show

Salvar.Execute

End Sub

""

porém ao clickar em salvar aparece o erro aonde informa que PDF nao é um formato valido visto ter um Projeto VBA.

Se alguem ja conseguiu resolver algum caso desses fico grato com o apoio.

[laercionb]

eu tenho essa rotina adpite a sua nescessidade..

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "\\BRASTREET\Manutenção\REQUISIÇÕES\" ' aqui você coloca o endereço de onde vai salvar o arquivo

Nome = ("N° MNT-") & Range("p10").Value ' aqui você escolhe uma celula dentro da sua plan para salvar o titulo do aquivo

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

MsgBox "O arquivo " & Nome & " foi salvo em REQUISIÇÕES" & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

[dvbqp]

estou com o mesmo problema

[laercionb]

Não conseguiram adptar a rotina que passei ?