Pessoal,
Alguém pode me ajudar a fazer com que essa rotina gere o PDF já com o nome da planilha Excel e não com o nome de uma aba específica, como está agora.
Att.
Private Sub CommandButton1_Click()
Dim i As Integer, iArr As Integer
Dim Nome_Arquivo As String
Dim myArray() As Variant
iArr = 0
'Conta os itens do listbox
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ReDim Preserve myArray(iArr)
myArray(iArr) = ListBox1.List(i)
iArr = iArr + 1
End If
Next
'Nome do Arquivo será primeira planilha selecionada
Nome_Arquivo = "C:Relatórios" & myArray(0) & ".pdf"
Sheets(myArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets(1).Select
End Sub
Postado : 03/09/2015 2:28 pm