Mastroyang

Boa noite,

Desculpe, case esteja postando no lugar errado. Sou novo aqui. 

Peguei um gancho referente a esta postagem e usei o codigo 

Em 10/01/2017 às 09:14, AdrianoKbcao disse:

im NomPastTrab As String NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _         ThisWorkbook.Path & "\" & NomPastTrab & ".pdf" _         , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _         :=False, OpenAfterPublish:=True

porém ao utilizá-lo em meu trabalho para impressão de relatório quê são 3 planilhas diferentes com 3 botões de impressão na userform  apesar de ter feito as devidas mudanças para que o cod. desse certo as impressões mesmo quê clicando em botões diferentes ficam todas iguais. obs. ficam iguais ao código do ultimo botão programado. ou seja todos iguais ... 

obrigado por sua atenção 

segue o codigo 

Private Sub RelatórioAnual_Click()
Dim NomAnual As String

NomAnual = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & NomAnual & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

Private Sub Mensal_Click()
Dim NomMensal As String

NomMensal = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & NomMensal & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
        
End Sub

Private Sub VGAtendimento_Click()
Dim NomVGA As String

NomVGA = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & NomVGA & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub