MooM
-
Posts
20 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de MooM em GERAR RELATÓRIO PDF DE OUTRA ABA foi marcado como solução
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
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
