Imprimir PDF por Macro

[DanielCarneiro]

Bom dia pessoal,

Estou com o seguinte código que faz com que o vba gere um arquivo em pdf e salve em uma determinada pasta. Gostaria de saber se vocês tem conhecimento de se existe possibilidade de por a macro pra usar a referência como a coluna A, fazendo com o vba gere o pdf até a ultima linha da coluna A? A macro irei deixar abaixo:

 

Sub GerarPDF()

    Dim SvInput As String
    Dim Data As String
    Dim var_MENSAGEM
    Dim Nome As String
    
    'selecionar a tabela, "Banco" é o nome dela
    Plan8.Select
    
    'Para determinar o fim da planilha com o nome "pdff", e "Banco" o nome da planilha
    pdff = Plan8.UsedRange.Rows.Count
    
    'Selecionar o inicio e o fim da planilha
    Range("A1:I1" & pdff).Select
    

    Nome = InputBox("Digite o nome para o relatório. Ex.: Inventário + 'Nome do Responsável'", "Gerar Relatório PDF")
If Nome = cancelar Then Exit Sub

    Data = VBA.Format(VBA.Date, "dd-mm-yyyy")
    SvInput = "C:\Users\Carneiro\Desktop\Projeto TheoPrax\Inventários" & Application.PathSeparator & Nome & "_" & Data & ".pdf"

        With ActiveSheet
            .ExportAsFixedFormat _
            Type:=x1TypePDF, _
            Filename:=SvInput, _
            OpenAfterPublish:=True
        End With
        
'Mandar o excel salvar a alteração
ActiveWorkbook.Save

 

--------------------

Caso alguém possa ajudar ficarei grato

[Leonardo Ferreira]

Private Sub btnExportarFiltros_Click()

        vbSimNao = 0
        vbSimNao = MsgBox("Deseja exportar o 'Relatório de Acompanhamento'?", vbYesNo, "Exportar Relatório")
                'se resposta for sim, ele exclui, sai e desmarca
                If vbSimNao = 6 Then
                        Call MyDesbloqueio
                        Sheets("Acompanhamento").Visible = True
                                ultAcompanhamento = ultAdministrador = Application.WorksheetFunction.CountA(Sheets("Acompanhamento").Range("A:A"))
                                myMesExp = Format(Month(Date), "0") 'STRING
                                myAnoExp = Format(Year(Date), "0000") 'STRING
                                myDataExp = myMesExp & "_" & myAnoExp 'STRING
                                acompanhamentoPDF = ThisWorkbook.Path & "\" & myDataExp & " - Relatório de Acompanhamento" & ".pdf"
                                Sheets("Acompanhamento").Range("a1:i" & ultAcompanhamento).ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=acompanhamentoPDF
                        Sheets("Acompanhamento").Visible = xlSheetVeryHidden
                                ActiveWorkbook.Save
                                MsgBox ("O 'Relatório de Acompanhamento' foi exportado para a pasta (" & ThisWorkbook.Path & ")."), _
                                vbInformation, "Status da Exportação"
                        Call MyBloqueio
                Else
                        Exit Sub
                End If                
        
End Sub

Ignore "Call MyDesbloqueio" e "Call MyBloqueio"

 

Isso exibe a aba oculta: Sheets("Acompanhamento").Visible = True

 

E isso oculta e não permite exibição sem senha: Sheets("Acompanhamento").Visible = xlSheetVeryHidden