Gerar PDF de abas específicas com seleção via Listbox
Enviado: 28 Ago 2015 às 17:15
Pessoal, gostaria muito da ajuda de vocês.
Eu rodei a rotina abaixo e ela me gera PDFs das abas selecionadas no listbox, porém essa rotina gera arquivos separados para cada aba. Preciso que a rotina me gere, para cada click no botão "Gerar PDF" apenas 1 PDF com todas as abas selecionadas. É possível?
Eu rodei a rotina abaixo e ela me gera PDFs das abas selecionadas no listbox, porém essa rotina gera arquivos separados para cada aba. Preciso que a rotina me gere, para cada click no botão "Gerar PDF" apenas 1 PDF com todas as abas selecionadas. É possível?
Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim i As Integer, Nome_Arquivo As String
'Conta os itens do listbox
For i = 0 To ListBox1.ListCount - 1
'Verifica se o item do listbox esta selecionado
'Se estiver selecionado continua a rotina
If ListBox1.Selected(i) Then
Nome_Arquivo = "C:\Relatórios\" & ListBox1.List(i) & ".pdf"
Sheets(ListBox1.List(i)).Select
If WorksheetFunction.CountA(Cells) = 0 Then
'Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
'Adiciona os Nomes das Abas no Listbox
For Each ws In ThisWorkbook.Worksheets
ListBox1.AddItem (ws.Name)
Next ws
End Sub