HELIOS

Obrigado pela dica Edson Luiz Branco. funcionou 100%.

Boa tarde a todos, sou novo aqui, porém estou com um problema que ja perdi 1 dia testando e nada. Preciso que ao gerar o PDF, ele seja salvo na pasta que foi criada anteriormente com os dados do orçamento, porém essa pasta esta em um servidor (rede do escritorio que fica em um notebook), ele faz tudo cria a pasta no servidor so que gera o pdf mas nao identifica o caminho ai salva nos documentos do diretorio C: se eu alterar para trabalhar localmente no meu computador da 100%. alguem para me dar um help nesse caminho. segue codigo criado. Sub printb2() ' ' ' 'gera orçamento em pdf ' Sheets("printb").Visible = True Sheets("Printb").Activate ' ActivateSheets.Calculate 'pdf 'cria pasta do cliente ' Dim CriaPastacliente As String A = Range("PARAMETROS!D2").Value 'Caminho orçamento no servidor exemp:\\SERVIDORINDUSOL\A- Projetos em Execução e orçamentos\ORÇAMENTOS\2020\11 Novembro\DNS26112015HS - Fabiano Sehnem Rossa B = Range("PARAMETROS!D3").Value ' DNS26112015HS - Fabiano Sehnem Rossa C = Range("PARAMETROS!D4").Value ' 2020\11 Novembro\DNS26112015HS - Fabiano Sehnem Rossa CriaPastacliente = A 'Caminho orçamento no servidor If Dir(CriaPastacliente, vbDirectory) = "" Then 'Verifica se ja nao existe a pasta no diretorio especificado, caso ja exista termina MkDir CriaPastacliente 'MsgBox "O diretório: " & CriaSubPasta & " foi criado!", vbInformation, "AVISO" ' End If 'salva pdf Sheets("Printb").Select ' ChDir A ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ B, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub