Este fórum está sendo desativado

[guinardelli]

Boa tarde Mestres!

Preciso de ajuda para criar uma macro que gere um PDF do meu arquivo, porém sendo apenas as células selecionadas.

Conforme imagem: https://goo.gl/n8APrA

E interessante se fosse "Salvar como arquivo" e não "imprimir" pelo seguinte motivo:

Quando imprimo em PDF a logo sai distorcida, e indo em salvar como não.

Obrigado desde já

[Jimmy]

Olá,

Use o comando abaixo:

Código: Selecionar todos

Range("F11:G13").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="D:\Usuários\Luis\Documents\zzz.pdf", _
        Quality:=xlQualityStandard, _
        OpenAfterPublish:=False

Você pode configurar se quer que o PDF seja aberto ou não após gerado, quanlidade, etc. Dá uma olhada nos parámetros.

https://docs.microsoft.com/pt-br/office ... ixedformat

Jimmy San Juan

[guinardelli]

Show !!!

Eu consegui usando esse seu comando.

Código: Selecionar todos

 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\srv1\Projetos\Expedição.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Só fiquei com dúvida no Filename onde eu coloquei o caminho.

Gostaria que ele salvasse sempre na pasta onde o arquivo está, e a ideia é que essa minha planilha fique em várias pastas diferentes. Portanto tem como ?

Tem como ?

Obrigado

[Jimmy]

Os comandos, meu e teu, são o mesmo. Apenas usei aquele Range para testar

Para definir a pasta Windows na qual será exportado o PDF, tente o código abaixo.

Código: Selecionar todos

Pasta =  ThisWorkbook.Path
Nome = "Expedição.pdf"
Selection.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=pasta & "\" & Nome, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Não testei na rede pois o PC aqui em casa está sozinho.
Teste e dê retorno.

Jimmy San Juan