Ir ao conteúdo
  • Cadastre-se

GERAR RELATÓRIO PDF DE OUTRA ABA


Ir à solução Resolvido por MooM,

Posts recomendados

Boa tarde!

 

Tenho uma planilha com duas abas:

 

1º aba =  "SI TRUCK" 

2º aba =  "RELATÓRIO"

 

Gostaria de criar um botão dentro da aba "SI TRUCK" que ao clicar imprima a aba "RELATÓRIO" em pdf (área de impressão que eu já estipulei no menu exibição e quebra de página) e salve o arquivo com o nome que eu preciso, o nome do arquivo seria mais ou menos assim(se possível claro):

 

SI TRUCK - "colar o conteúdo da célula a'" - "colar o conteúdo da célula a2" - data atual

 

Já procurei em vários lugares e achei muitos códigos, mas como não conheço nada de códigos, não consegui ajustar nenhum código que fizesse o que eu preciso.

 

Se alguém puder ajuda, agradeço.

 

Abc

 

 

Link para o comentário
Compartilhar em outros sites

  • Solução

Boa tarde!

 

Tenho uma planilha com duas abas:

 

1º aba =  "SI TRUCK" 

2º aba =  "RELATÓRIO"

 

Gostaria de criar um botão dentro da aba "SI TRUCK" que ao clicar imprima a aba "RELATÓRIO" em pdf (área de impressão que eu já estipulei no menu exibição e quebra de página) e salve o arquivo com o nome que eu preciso, o nome do arquivo seria mais ou menos assim(se possível claro):

 

SI TRUCK - "colar o conteúdo da célula a'" - "colar o conteúdo da célula a2" - data atual

 

Já procurei em vários lugares e achei muitos códigos, mas como não conheço nada de códigos, não consegui ajustar nenhum código que fizesse o que eu preciso.

 

Se alguém puder ajuda, agradeço.

 

Abc

 

 

 

Pra quem interessar...achei esse código e adaptei ele para reexibir uma aba, depois gerar o pdf e oculta-lo novamente.

Também nomeia o arquivo utilizando algumas células.

 

Sub PDF()
Sheets("RELATÓRIO").Visible = True
 
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
MyLocal = "C:\Documents and Settings\"
Nome = Range("X12").Value
Complemento = Range("X10").Value
SDate = Now
If Nome <> vbNullString Then
Sheets("RELATÓRIO").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & "SI-" & Nome & Complemento & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Application.DisplayAlerts = False
Else
Application.DisplayAlerts = False
End If
 
Sheets("RELATÓRIO").Visible = False
End Sub
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

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...