Este fórum está sendo desativado

[Jore]

Ola pessoal,
Estou criando uma planilha e quero salvar em PDF para enviar;
Tenho um código VBA que deveria delimitar a parte que ira aparecer no PDF porém não esta funcionando pois esta gerando um PDF com tudo e não só a área marcada.

Teste PDF.xlsm

Espero que alguém possa me ajudar!
Um abraço a todos!

[osvaldomp]

Salve, Jore.

Experimente:

Código: Selecionar todos

Sub Salvar_Em_PDF()
 Dim LOCALNOME As String
  LOCALNOME = ThisWorkbook.Path & "\Teste PDF" & "_" & Format(Now(), "MMMM") & "_" & Year(Date)
  On Error GoTo ERRO
  Range("B2:I37").ExportAsFixedFormat Type:=xlTypePDF, Filename:=LOCALNOME, Quality:=xlQualityStandar, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True
  Exit Sub
ERRO:  MsgBox "FECHE O ARQUIVO PDF"
End Sub

[Jore]

Grande mestre @osvaldomp, muito obrigado por mais essa ajuda!