Ir ao conteúdo

Posts recomendados

Postado

Olá, Pessoal!

 

Eu consegui esse codigo para salvar o intervalo da planilha como PDF dentro da pasta onde está o arquivo, porém tentei usa-la em arquivo e apresentou o erro conforme a foto abaixo. 

Queria aproveita os feras que tem aqui em Vba, gostaria da ajuda para ajustar esse codigo a adicionar outras. 

 

Gostaria de salvar o intervalo do arquivo como pdf dentro da pasta onde está o excel e enviar por e-mail o arquivo como pdf. 

 

Sub SALVAR_PDF()

Application.ScreenUpdating = False

' o codigo abaixo, ele salva a area desejada (activesheet), como PDF e usando o concatenar, renomea conforme o preenchimento planilha

Dim nome As String


nome = ThisWorkbook.Path & "\GESTÃO DE PRODUTO - PERFORMANCE" & ActiveSheet.Range("BQ12").Value & " - " & ActiveSheet.Range("BR12").Value & " - " & ActiveSheet.Range("BS12").Value & " - " & ActiveSheet.Range("N8").Value & ".PDF"
 

ERRO

ActiveSheet.Range("A1:BM77").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome


 Application.ScreenUpdating = True
    
    MsgBox "Certificado de arqueação, Salvo!"


End Sub

erro.PNG

Postado
1 hora atrás, RAIMUNDO LIMA DE ARAUJO disse:

Olá, Pessoal!

 

Eu consegui esse codigo para salvar o intervalo da planilha como PDF dentro da pasta onde está o arquivo, porém tentei usa-la em arquivo e apresentou o erro conforme a foto abaixo. 

Queria aproveita os feras que tem aqui em Vba, gostaria da ajuda para ajustar esse codigo a adicionar outras. 

 

Gostaria de salvar o intervalo do arquivo como pdf dentro da pasta onde está o excel e enviar por e-mail o arquivo como pdf. 

 

Sub SALVAR_PDF()

Application.ScreenUpdating = False

' o codigo abaixo, ele salva a area desejada (activesheet), como PDF e usando o concatenar, renomea conforme o preenchimento planilha

Dim nome As String


nome = ThisWorkbook.Path & "\GESTÃO DE PRODUTO - PERFORMANCE" & ActiveSheet.Range("BQ12").Value & " - " & ActiveSheet.Range("BR12").Value & " - " & ActiveSheet.Range("BS12").Value & " - " & ActiveSheet.Range("N8").Value & ".PDF"
 

ERRO

ActiveSheet.Range("A1:BM77").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome


 Application.ScreenUpdating = True
    
    MsgBox "Certificado de arqueação, Salvo!"


End Sub

erro.PNG

 

Tenho outra situação, 

quando salvo a planilha como PDF a imagem da segmentação de dados fica distorcida. 

 

2.PNG

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!