Mastroyang

Boa noite, Desculpe, case esteja postando no lugar errado. Sou novo aqui. Peguei um gancho referente a esta postagem e usei o codigo 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