none
VBA -Salvar em PDF com nome especifico RRS feed

  • Pergunta

  • Olá Pessoal do Fórun,

    Sou novo em programação VBA, estou elaborando uma planilha de pedidos para minha empresa com macros para a geração de novo pedido, cancelamento de preenchimento, visualização de impressão, impressão (propriamente dita) e ainda a macro para salvar em pdf que segue abaixo:

    Sub SalvarPDF()
    '
    ' Salvar pedido em pdf
    
    
    Dim NomeArq As String
    Dim PedidoVenda As String
    
    NomeArq = Range("B4").Value 
    ' Nome do Cliente
    
    PedidoVenda = Range("O2").Value
    ' Número do Pedido de Venda
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomeArq & "_" & PedidoVenda _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
            
    MsgBox "Pedido Salvo com Sucesso", vbOKOnly, "Salvar Arquivo"
    
    End Sub

    Estou tendo dificuldade em direcionar o local onde será salvo o arquivo .pdf.

    Da maneira que está, o arquivo é salvo em "Documentos" no "Disco= C:", porém preciso que o arquivo seja salvo apenas com o Nome do Cliente e Número do Pedido no servidor que seria no caso "Disco= W:\".

    Alguém poderia ajudar??


    • Editado Tony Tomba terça-feira, 21 de junho de 2016 17:12
    terça-feira, 21 de junho de 2016 16:44

Respostas